| |
 |
| |
|
<%=mCatName%>
|
<%
Dim mCn
Dim mRs
Dim mdbName
Dim mQry
Dim mCatCode
Dim mCatPos
Dim mStyleno
Dim mSdesc
Dim OutputSfile
mRowCount = 1
Set mCn = Server.CreateObject("ADODB.Connection")
Set mRs = Server.CreateObject("ADODB.Recordset")
mdbName = "driver={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;"_
& " DATABASE=sentinel;"_
& "UID=sentinel;PWD=sentinel; OPTION=3"
mCn.ConnectionString = mdbName
mCn.Open
'Response.write mcattype
mQry = "Select * from Catalogue where catagory = '" & mcattype & "' order by catpos"
mRs.open mQry, mCn
if Not mRs.EOF then
Response.write ""
mRs.Movefirst
do while Not mRs.Eof
mCatPos = mRs.Fields("Catpos")
mStyleno = mRs.Fields("styleno")
mSdesc = mRs.Fields("Sdesc")
If mRowCount = 1 then
' Response.write mRowcount & "
"
Response.write ""
End if
Response.write ""
Response.write ""
OutputSFile = "\gallery\" & Lcase(mcattype) & Trim(mCatpos) & "t.jpg"
Response.write ""
Response.write " "
Response.write " " & mStyleno & ""
Response.write "" & Sdesc & ""
Response.write " | " & chr(10)
Response.write ""
mRowcount = mRowCount+1
if mRowcount > 3 then
Response.write " "
mRowcount = 1
End if
mRs.Movenext
Loop
if mRowcount > 1 then
Response.write ""
End if
Response.write " "
End if
mRs.Close
mCn.Close
%>
|
|
|
|
| |
| |
|
|
|
|
|
