Notifikationer

Markér alle som læst Log ud

bkhansen Novice

09. september 2003 - 14:19 Der er 14 kommentarer og
1 løsning

Link til anden side med asp

Hejsa, på side1 trækker jeg noget ud fra en tabel; Model, aargang, km, pris, info.

Sådan ser tabellen ud:
ID model arrgang km pris info billede1 billede2
02 Opel 1999 78788 6000 klik her images\1.jpg images\1.jpg

På side 1 skal jeg så ha' lavet et link som linker til en anden side hvor alt info + billeder kommer frem.

Hvordan laves det?
I kan se side 1 på:
http://www.bkhansen.dk/kamran/personbiler.asp

Altså når man så klikker på KLIK HER, så kommer der en ny side med ALT info + billeder!

Håber i forstår.
På forhånd tak.

Synes godt om

medions Nybegynder

09. september 2003 - 14:24 #1

<%
Set objConn = Server.CreateObject("Adodb.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dbnavn.mdb")

strSQL = "SELECT * FROM tblTabelnavn"
Set objRs = objConn.Execute(strSQL)

While Not objRs.EOF
Response.Write("<a href=""VisBiler.asp?BilID=" & objRs("id") & """>" & objRs("Model") & "-" & objRs("arrgang") & "</a> ")
objRs.MoveNext()
Wend
%>

//>Rune

Synes godt om

gertp Nybegynder

09. september 2003 - 14:25 #2

<a href="http://www.bkhansen.dk/kamran/personbiler.asp?id=<%=id%>klik her</a>

og på den nye side skal du så have en select der vælger id

Synes godt om

medions Nybegynder

09. september 2003 - 14:26 #3

Og i dokumentet VisBiler.asp skriver du:
<%
Set objConn = Server.CreateObject("Adodb.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dbnavn.mdb")

strSQL = "SELECT * FROM tblTabelnavn WHERE id =" & Request.QueryString("BilID")
Set objRs = objConn.Execute(strSQL)

With Response
.Write("Årgang: " & objRs("arrgang") & " ")
.Write("Model: " & objRs("Model") & " ")
End With
%>

//>Rune

Synes godt om

bkhansen Novice

09. september 2003 - 14:31 #4

Forstår ikke helt.
Min side ser sådan her ud:
---
<% while not personbilerRS.eof %>
<TR class="tekst">
<TD><%response.write(personbilerRS("model"))%></TD>
<td><%response.write(personbilerRS("aargang"))%></td>
<td><%response.write(personbilerRS("km"))%></td>
<td><%response.write(personbilerRS("Pris"))%></td>
<td><%response.write(personbilerRS("info"))%></td>
</TR>
<% personbilerRS.movenext
wend%>
---
Alle Info hedder KLIK HER i databasen.
Hvert KLIK HER skal have et link. Når man så klikker på KLIK HER under opel vectra ex. kommer man ind på siden hvor den hiver det hele frem.

Synes godt om

medions Nybegynder

09. september 2003 - 14:33 #5

Ahh ok, så gør du sådan her:

<% while not personbilerRS.eof %>
<TR class="tekst">
<TD><%response.write(personbilerRS("model"))%></TD>
<td><%response.write(personbilerRS("aargang"))%></td>
<td><%response.write(personbilerRS("km"))%></td>
<td><%response.write(personbilerRS("Pris"))%></td>
<td><%response.write(personbilerRS("info"))%></td>
<td><a href="VisBiler.asp?BilID=<%response.write(personbilerRS("id"))%>"><%response.write(personbilerRS("info"))%></</a></td>
</TR>
<% personbilerRS.movenext
wend%>

//>Rune

Synes godt om

bkhansen Novice

09. september 2003 - 14:37 #6

Okay - Så har jeg den side.
Hvad skal der så stå i Visbiler.asp ?

Synes godt om

medions Nybegynder

09. september 2003 - 14:43 #7

<%
Set objConn = Server.CreateObject("Adodb.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dbnavn.mdb")

strSQL = "SELECT * FROM tblTabelnavn WHERE id =" & Request.QueryString("BilID")
Set objRs = objConn.Execute(strSQL)

With Response
.Write("Årgang: " & objRs("arrgang") & " ")
.Write("Model: " & objRs("Model") & " ")
End With
%>

//>Rune

Synes godt om

bkhansen Novice

09. september 2003 - 14:48 #8

Variablen er ikke defineret: 'objConn'
/kamran-asp/VisBiler.asp, line 13

Fejl ... :-/

Synes godt om

medions Nybegynder

09. september 2003 - 14:49 #9

Prøv at lad mig se dit dokument!

//>Rune

Synes godt om

bkhansen Novice

09. september 2003 - 14:50 #10

<%@LANGUAGE="VBSCRIPT"%>
<%option Explicit%>
<HTML><HEAD>
<TITLE>main</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<link href="style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY text=#000000 vLink=#990000 aLink=#666666 link=#999999 bgColor=#B3D9FF
leftMargin=0 topMargin=0 rightMargin=0 marginwidth="0" marginheight="0">
 
Bil
<%
Set objConn = Server.CreateObject("Adodb.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db1.mdb")

strSQL = "SELECT * FROM personbiler WHERE id =" & Request.QueryString("BilID")
Set objRs = objConn.Execute(strSQL)

With Response
.Write("Årgang: " & objRs("arrgang") & " ")
.Write("Model: " & objRs("model") & " ")
End With
%>
</BODY>
</HTML>

Synes godt om

medions Nybegynder

09. september 2003 - 15:13 #11

<%@LANGUAGE="VBSCRIPT"%>
<%option Explicit%>
<HTML><HEAD>
<TITLE>main</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<link href="style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY text=#000000 vLink=#990000 aLink=#666666 link=#999999 bgColor=#B3D9FF
leftMargin=0 topMargin=0 rightMargin=0 marginwidth="0" marginheight="0">
 
Bil
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=" & Server.MapPath("db1.mdb")

strSQL = "SELECT * FROM personbiler WHERE id =" & Request.QueryString("BilID")
Set objRs = objConn.Execute(strSQL)

With Response
.Write("Årgang: " & objRs("arrgang") & " ")
.Write("Model: " & objRs("model") & " ")
End With
%>
</BODY>
</HTML>

Prøv lige sådan!

//>Rune

Synes godt om

bkhansen Novice

09. september 2003 - 15:18 #12

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01F4)
Variablen er ikke defineret: 'objConn'
/kamran-asp/Visbiler.asp, line 13

Desværre samme fejl igen.
Har oprettet en fil der hedder visbiler.asp.

Synes godt om

bkhansen Novice

09. september 2003 - 15:20 #13

Har det noget at gøre med det her:

VisBiler.asp?BilID? Jeg har ikke noget der hedder BilID i databasen, men har noget der hedder ID.

Synes godt om

bkhansen Novice

09. september 2003 - 15:44 #14

WEEEEEEEEEEEEEEEEEEE fandt fejlen hehe.
dim objConn, strSQL, objRs

Du manglede at definere variablerne hehe.
Du får point. Du var til stor hjælp.

Synes godt om

medions Nybegynder

09. september 2003 - 18:13 #15

Anytime...
Thx 4 Poinz

//>Rune

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
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

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