Avatar billede capion Nybegynder
28. februar 2001 - 23:01 Der er 8 kommentarer og
1 løsning

aspmenu og .asp?id=xxx

Jeg vil lave 2 sider i asp. side 1 med en menu, side 2 med visning af indhold for valgte menu på side 1..hvordan gør jeg ..jeg kan ikke få dette til at virke :

foerste.asp :
<html>
<head>
<title>Første side i asp-experiment</title>
</head>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\"& Server.MapPath (\"database.mdb\")
strSQL = \"Select * From Tcontent\"
Set RS = Conn.Execute(strSQL)

id = 10
<a href=&quot;Anden.asp?id=&lt;%=RS(&quot;CAT\")%>\">Noget1</a>
id = 20
<a href=&quot;Anden.asp?id=&lt;%=RS=(&quot;CAT&quot;)%>\">Noget2</a>
rs.Close
Set rs = Nothing
%>

Anden.asp :

<html>
<head>
<title>Anden side i asp-experiment</title>
</head>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"database.mdb\")
strSQL = \"Select * from Tcontent where Id = \" & Request.QueryString(\"Id\")
Set RS = Conn.Execute(strSQL)

response.write RS(&quot;Beskrivelse&quot;)

rs.MoveNext
Loop
rs.Close
Set rs = Nothing
%>
</body>
</html>
Avatar billede skovtrold Nybegynder
28. februar 2001 - 23:20 #1
Du staver id forskelligt i de 2 filer...
Anden.asp?id=&lt....
og
Request.QueryString(\"Id\")
Avatar billede capion Nybegynder
28. februar 2001 - 23:30 #2
Jow.. Nu har jeg prøvet så´en her, men det er vist stadig noget sludder *S* :

Jeg er altså liidt \"grøn\" men synes at kunne se noget i det.*hehe*

Foerste.asp

<html>

<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>Første side i asp-experiment</title>
</head>

<body>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\"& Server.MapPath (\"portal.mdb\")
strSQL = \"Select * From Banner\"
Set RS = Conn.Execute(strSQL)
<% id = 18%>
<% response.write <a href=\"Second.asp?id==RS(\"CAT\")%>\">Noget1</a>%>
<% id = 20%>
<% response.write <a href=\"Second.asp?id=<%=RS=(\"CAT\")%>\">Noget2</a>%>
<%rs.Close%>
<%Set rs = Nothing%>

</body>

</html>

ANDEN.asp :

<html>

<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>Ny side 2</title>
</head>

<body>

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"portal.mdb\")
strSQL = \"Select * from banner where kat = \" & Request.QueryString(\"kat\")
Set RS = Conn.Execute(strSQL)

response.write RS(\"description\")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
%>
</body>

</html>
Avatar billede skovtrold Nybegynder
28. februar 2001 - 23:36 #3
Du vil hente:
Request.QueryString(\"kat\")
men har sendt
id==RS(\"CAT\")

Og i linien hvor du henter fra databasen og tabellen kat, har du stavet det med \"k\", skal det ikke være med \"c\" ?

Er du med på hvad jeg mener?
Avatar billede skovtrold Nybegynder
28. februar 2001 - 23:39 #4
Nej, jeg tror jeg har siddet for længe foran skærmen til at jeg kan overskue noget ligenu...
Avatar billede brain Nybegynder
28. februar 2001 - 23:49 #5
prøv det her....går ud fra at kolonnen hedder KAT og ikke CAT

Foerste.asp

<html>

<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>Første side i asp-experiment</title>
</head>

<body>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\"& Server.MapPath (\"portal.mdb\")
strSQL = \"Select * From Banner\"
Set RS = Conn.Execute(strSQL)
<% id = 18%>
<% response.write(\"<a href=\'Second.asp?id=\" & RS(\"KAT\") & \"\'>Noget1</a>\"%>
<% id = 20%>
<% response.write(\"<a href=\'Second.asp?id=\" & RS(\"KAT\") & \"\'>Noget2</a>\"%>
<%rs.Close%>
<%Set rs = Nothing%>

</body>

</html>

ANDEN.asp :

<html>

<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>Ny side 2</title>
</head>

<body>

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"portal.mdb\")
strSQL = \"Select * from banner where kat = \" & Request.QueryString(\"id\")
Set RS = Conn.Execute(strSQL)

response.write RS(\"description\")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
%>
</body>

</html>
Avatar billede capion Nybegynder
01. marts 2001 - 01:15 #6
Brain :>

Set RS = Conn.Execute(strSQL)

giver type mismatch fejl.

*øv* det ser sgi´ ellers helt rigtig ud.

Avatar billede capion Nybegynder
01. marts 2001 - 01:17 #7
Microsoft OLE DB Provider for ODBC Drivers error \'80040e07\'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/db/anden.asp, line 5
Avatar billede capion Nybegynder
01. marts 2001 - 01:55 #8
nu er det \"pinnet\" ned til en fejl som går ud på at den ikke overfører \"id\" rigtigt.. hvis jeg manuelt tilføjer to små \' så´en her :
http://www.capion.dk/db/anden.asp?id=\'18\'
Får jeg det jeg søger..men ligemeget hvad jeg prøver kan jeg ikke få den til at overføre andet end : http://www.capion.dk/db/anden.asp?id=18
Hvad går det ud på ?
Avatar billede capion Nybegynder
01. marts 2001 - 09:50 #9
Nå men tak for hintet.. det kom til at se så´en ud og det virker *S* :

Foerste.asp  :
\' kode1 start
<%
id = 18 \'menupkt hardcodes med id
Response.Write(\"<a href=\'anden.asp?id=\" & id & \"\'>some \" & id & \"</a><br>\") \' Menupkt vises som link, id hægtes på

id = 20
Response.Write(\"<a href=\'anden.asp?id=\" & id & \"\'>some \" & id & \"</a><br>\")
%>
\' kode1 slut

anden.asp :
\' kode2 start

<%
\' database forbindelse forberedes og åbnes
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"portal.mdb\")
\' data fra tabel hvor \"hits\" = id fra foerste.asp udvælges og åbnes
strSQL = \"Select * from banner where kat =\" & Request.QueryString(\"id\")
Set RS = Conn.Execute(strSQL)

\' Lav list med resultater
Do While NOT RS.EOF
Response.Write \"<a href=http://\" & rs(\"Url\") & \"><img src=\'\" & rs(\"Filename\") & \"\' border=0></a><br><br>\"
rs.MoveNext
Loop

\' Luk pænt efter dig
rs.Close
Set rs = Nothing
%>

\' Kode2 slut
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester