/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
If Then Else End If Problem
Fra : Keld Fuglsang


Dato : 18-04-01 21:23

Hej

jeg har et problem da mit script ikke virker, det skulle gerne læse om der
står noget i rs("Navn"), hvis der gør det skal den skrive hvad der står og
hvis der ikke gør skal man kan tilmelde sig. jeg har indsat source koden til
de forskellige ting men jeg kan ikke finde fejlen

Fejlen lyder :
Der opstod en Microsoft VBScript-kørselsfejl fejl '800a000d'

Typerne passer ikke sammen: 'rs'

/reserver.asp, linje 14


Source Kode :
<html>
<head>
<title>The Complex</title>
</head>
<body>
<%
' Database Forbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath("borde.mdb")
Conn.Open DSN

none=""
if rs("navn") <> none then

'Læs Bruger
strSQL1 = "Select * from borde Where bord = " & Request.Querystring("bord")
& ""
Set rs = Conn.Execute(strSQL1)

Do

Response.Write "<h3>Plads nr. " & Request.Querystring("bord") & " er
reserveret til :</h3>"
Response.Write "<table border='0'>"
Response.Write "<tr>"
Response.Write "<td width='110px'>Navn :</td>"
Response.Write "<td width='300px'>" & rs("Navn") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='110px'>Nickname :</td>"
Response.Write "<td width='300px'>" & rs("Nickname") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='110px'>Adresse :</td>"
Response.Write "<td width='300px'>" & rs("Adresse") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='110px'>Post nr. & By :</td>"
Response.Write "<td width='300px'>" & rs("City") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='110px'>E-mail :</td>"
Response.Write "<td width='300px'>" & rs("Email") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='110px'>Hjemmeside :</td>"
Response.Write "<td width='300px'>" & rs("Hjemmeside") & "</td>"
Response.Write "</tr>"
Response.Write "</table>"


rs.MoveNext

Loop While Not rs.EOF



Else

' Tabel og Form
Response.Write "<form method='Post' action='reserver2.asp?bord=" &
Request.Querystring("bord") & "'>"
Response.Write "<center><table border='0'>"
Response.Write "<tr>"
Response.Write "<td>Navn :</td>"
Response.Write "<td><input type='text' name='Navn'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td>Nickname :</td>"
Response.Write "<td><input type='text' name='Nickname'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td>Adresse :</td>"
Response.Write "<td><input type='text' name='Adresse'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td>Post nr. & By :</td>"
Response.Write "<td><input type='text' name='City'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td>E-Mail :</td>"
Response.Write "<td><input type='text' name='Email'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td>Hjemmeside :</td>"
Response.Write "<td><input type='text' name='Hjemmeside'></td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "<input type='submit' Value='Reserver'>"
Response.Write "</form>"

End If

%>
</body>
</html>



 
 
Lauritz Jensen (18-04-2001)
Kommentar
Fra : Lauritz Jensen


Dato : 18-04-01 21:29

Keld Fuglsang wrote:
>
> Conn.Open DSN [1]
>
> none=""
> if rs("navn") <> none then [2]
>
> 'Læs Bruger
> strSQL1 = "Select * from borde Where bord = " & Request.Querystring("bord")
> & ""
> Set rs = Conn.Execute(strSQL1) [3]

1. Først åbner du forbindelsen til databasen
2. Så kigger du om der står noget i recordsettet
3. og så åbner du recrodsettet.

Jeg tror du skal bytte om på 2 og 3

(og du burde også i samtlige af dinne scripts escape værdier inden du
sætter dem ind i databasen)

--
Lauritz

Keld Fuglsang (18-04-2001)
Kommentar
Fra : Keld Fuglsang


Dato : 18-04-01 21:36

Hej

Det kunne ikke tænkes at jeg kunne få et eksempel på hvordan mit script så
skulle se ud, da jeg kun har leget med ASP i 7 dage nu.

Mvh
kenneth

"Lauritz Jensen" <lauritz2@hotmail.com> wrote in message
news:3ADDF8F1.A8EBFBF8@hotmail.com...
> Keld Fuglsang wrote:
> >
> > Conn.Open DSN [1]
> >
> > none=""
> > if rs("navn") <> none then [2]
> >
> > 'Læs Bruger
> > strSQL1 = "Select * from borde Where bord = " &
Request.Querystring("bord")
> > & ""
> > Set rs = Conn.Execute(strSQL1) [3]
>
> 1. Først åbner du forbindelsen til databasen
> 2. Så kigger du om der står noget i recordsettet
> 3. og så åbner du recrodsettet.
>
> Jeg tror du skal bytte om på 2 og 3
>
> (og du burde også i samtlige af dinne scripts escape værdier inden du
> sætter dem ind i databasen)
>
> --
> Lauritz



Peen (18-04-2001)
Kommentar
Fra : Peen


Dato : 18-04-01 21:49

byt om på disse to

none=""
if rs("navn") <> none then

'Læs Bruger
strSQL1 = "Select * from borde Where bord = " & Request.Querystring("bord")
& ""
Set rs = Conn.Execute(strSQL1)

Så det kommer til at se sådan ud:

'Læs Bruger
strSQL1 = "Select * from borde Where bord = " & Request.Querystring("bord")
& ""
Set rs = Conn.Execute(strSQL1)

none=""
if rs("navn") <> none then

Søren Peen


"Keld Fuglsang" <keld-fuglsang@mail.dk> skrev i en meddelelse
news:9bktoh$6ad$1@news.inet.tele.dk...
> Hej
>
> Det kunne ikke tænkes at jeg kunne få et eksempel på hvordan mit script så
> skulle se ud, da jeg kun har leget med ASP i 7 dage nu.
>
> Mvh
> kenneth
>
> "Lauritz Jensen" <lauritz2@hotmail.com> wrote in message
> news:3ADDF8F1.A8EBFBF8@hotmail.com...
> > Keld Fuglsang wrote:
> > >
> > > Conn.Open DSN [1]
> > >
> > > none=""
> > > if rs("navn") <> none then [2]
> > >
> > > 'Læs Bruger
> > > strSQL1 = "Select * from borde Where bord = " &
> Request.Querystring("bord")
> > > & ""
> > > Set rs = Conn.Execute(strSQL1) [3]
> >
> > 1. Først åbner du forbindelsen til databasen
> > 2. Så kigger du om der står noget i recordsettet
> > 3. og så åbner du recrodsettet.
> >
> > Jeg tror du skal bytte om på 2 og 3
> >
> > (og du burde også i samtlige af dinne scripts escape værdier inden du
> > sætter dem ind i databasen)
> >
> > --
> > Lauritz
>
>



Peter Lykkegaard (19-04-2001)
Kommentar
Fra : Peter Lykkegaard


Dato : 19-04-01 08:25


"Keld Fuglsang" <keld-fuglsang@mail.dk> wrote in message
news:9bkt04$2qf$1@news.inet.tele.dk...
> Hej
>
> jeg har et problem da mit script ikke virker, det skulle gerne læse om der
> står noget i rs("Navn"), hvis der gør det skal den skrive hvad der står og
> hvis der ikke gør skal man kan tilmelde sig. jeg har indsat source koden
til
> de forskellige ting men jeg kan ikke finde fejlen
>
> Fejlen lyder :
> Der opstod en Microsoft VBScript-kørselsfejl fejl '800a000d'
>
> Typerne passer ikke sammen: 'rs'
>
> none=""
> if rs("navn") <> none then
>
Du har ikke sat variablen rs til at indeholde noget endnu (så vidt jeg lige
kan se)
Prøv at lave en response.write rs("navn") over linje 14

Din konstruktion
none=""
if rs("navn") <> none then

Er ikke så elegant
Du kan evt bruge
If Len(Trim(rs("navn") &"")) > 0

Værdien i feltet navn kan indeholde en Null værdi
Det tager rs("navn") &"" højde for

Værdien i feltet navn kan indeholde blanktegn
Det tager Trim(rs("navn") &"") højde for

Til sidst så returnerer funktionen Len() længden af den værdi der fra
funktionen Trim()

Måske lidt komplekst bår nu du er nystartet ud i ASP, men prøv at tjekke
funktionerne i din VBScript dokumentation

mvh/Peter Lykkegaard



Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408874
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste