| [ Add Product ] |
| Note: If your product has been sold, or you wish it to no longer be on this list email the webmaster the product information at marjje@hotmail.com |
| |
<%
pathtrans = request("Path_Translated")
sitepath = mid(pathtrans, 1, instrrev(pathtrans, "\"))
dbfilename = sitepath & "db/sk8db.mdb"
Set dbConnection = Server.CreateObject("ADODB.Connection")
dbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbfilename & ";"
'Set variable coursesrs to recordset
Set jgbrs = Server.CreateObject("ADODB.Recordset")
'connect to database
jgbrs.ActiveConnection = dbConnection
'Identify SQL_String to select the area in the db file courses by the coursename
SQL_String = "Select * From sk8prod Order By ID"
'open string
jgbrs.Open SQL_String
while not jgbrs.eof
%>
| Name: <%=jgbrs("name")%>
Email: " class="linkgreen"><%=jgbrs("email")%> |
| Phone: <%=jgbrs("phone")%> |
| Town,State, Country: <%=jgbrs("townstate")%> |
| Product: <%=jgbrs("product")%> |
| Price: <%=jgbrs("price")%> |
| Description: <%=jgbrs("description")%> |
| |
<%
'move to next record in database
jgbrs.movenext
'end while loop
wend
'close recordset
jgbrs.close
'close database connection
dbconnection.close
%>