Notifikationer

Markér alle som læst Log ud

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="Anden.asp?id=<%=RS("CAT\")%>\">Noget1</a>
id = 20
<a href="Anden.asp?id=<%=RS=("CAT")%>\">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("Beskrivelse")

rs.MoveNext
Loop
rs.Close
Set rs = Nothing
%>
</body>
</html>

Synes godt om

skovtrold Nybegynder

28. februar 2001 - 23:20 #1

Du staver id forskelligt i de 2 filer...
Anden.asp?id=&lt....
og
Request.QueryString(\"Id\")

Synes godt om

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>

Synes godt om

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?

Synes godt om

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...

Synes godt om

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>

Synes godt om

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.

Synes godt om

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

Synes godt om

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å ?

Synes godt om

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

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS