ASP spørgsmål!
HejsaJeg er i gang med en free varekurv men har lidt problemer, (skal siges jeg ik har så meget forstand på asp)
Jeg skal have hevet indholdet ud af en database og vidst. Dette har jeg men jeg skal have lavet det på den der \"orders.asp?=1\" måde så det er lettere at holde styr på!
Koden til order.asp (den \"uddybede\" info)
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"SERVER=LOCALHOST;DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"db/metacart.mdb\")
Conn.Open DSN
SQL = \"SELECT orderID, fName, lName, phone, address1, orderDate, email, city, postalcode, address2, country, ccType, total FROM orders\"
Set RS = Conn.Execute( SQL )
while NOT RS.EOF
Response.Write \"<dt>ID:</dt> \" & rs(\"orderID\") & \"</dd>\"
Response.Write \"<dt>Dato:</dt> \" & rs(\"orderDate\") & \"</dd>\"
Response.Write \"<dt>Navn:</dt> \" & rs(\"fName\") & \" \" & rs(\"lName\") & \"</dd>\"
Response.Write \"<dt>Adresse:</dt> \" & rs(\"address1\") & \"</dd>\"
Response.Write \"<dt>PostNr:</dt> \" & rs(\"postalcode\") & \"</dd>\"
Response.Write \"<dt>By:</dt> \" & rs(\"city\") & \"</dd>\"
Response.Write \"<dt>Adresse2?:</dt> \" & rs(\"address2\") & \"</dd>\"
Response.Write \"<dt>Land:</dt> \" & rs(\"country\") & \"</dd>\"
Response.Write \"<dt>Betaling:</dt> \" & rs(\"ccType\") & \"</dd>\"
Response.Write \"<dt>E-Mail:</dt> \" & rs(\"email\") & \"</dd>\"
Response.Write \"<dt>Telefon:</dt> \" & rs(\"phone\") & \"</dd>\"
Response.Write \"<dt>Pris:</dt> \" & rs(\"total\") & \"</dd>\"
Response.Write \"<dt>-----------------------------------------------</dd>\"
RS.MoveNext
wend
RS.Close
Conn.Close
Set RS = nothing
Set Conn = nothing
%>
Koden til velg2.asp (listen med dem alle)
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"SERVER=LOCALHOST;DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"db/metacart.mdb\")
Conn.Open DSN
SQL = \"SELECT orderID, fName, lName FROM orders\"
Set RS = Conn.Execute( SQL )
while NOT RS.EOF
response.write \"<a href=\"\"order.asp?orderID=\" & RS(\"orderID\") & \"\"\">ID: \" & RS(\"orderID\") & \"</a><br>\"
response.write \"<ul>\" & LEFT(RS(\"fName\"), 50 ) & \"...</ul>\"
RS.MoveNext
wend
RS.Close
Conn.Close
Set RS = nothing
Set Conn = nothing
%>
