14 svar · 509 visningar · startad av cgi
Har problem med en gästbok, när jag har skrivit i alla forumulär och skickar iväg meddelande så står det:
Microsoft VBScript runtime error '800a01f4'
Variable is undefined: 'nanne'
/cgi-bin/gbproc.asp, line 29
men meddelandet lagras ändå, vad kan det vara för fel.
OBS. för att meddelandet ska lagras så måste du uppdatera fönstret.
Gästboken hitter du på addresen.
http://reptiler.webhostme.com/cgi-bin/gbok.asp
Hej!
... har du satt Option Explicit längst upp på sidan? ser ut som det... felmeddelandet tyder på att du inte "Dimmat" variabeln "nanne"...
------------------
MVH / Vide
Min hemsida:henslow.4sale.se/vide/
Ja det har jag gjort.
Så här ser koden ut:
<%@ Language=VBScript %>
<%
Option Explicit
'Deklarerar databas variabler
Dim Connect, conntemp, DSNtemp
'Deklarerar övriga variabler
Dim inlagg
' Här skapar vi en dsn-less connection mot gbok
Set Connect=server.CreateObject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("gbok.mdb")
Connect.Open DSNtemp
%>
<html>
<head>
<title>Gästbok</title>
</head>
<body>
<body bgcolor="#000000" text="#ffffff">
<form method="post" action="gbproc.asp">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><font size=1>
Namn:<br> <input type="text" size="15" name="namn"><br><br>
</td>
<td valign="top"><font size=1>
E-post:<br><input type=text size=15 maxlength="100" name="epost">
</td>
</tr>
<tr>
<td valign="top"><font size=1>
Ort:<br><input type=text size=15 maxlength="60" name="ort">
</td>
<td valign="top"><font size=1>
Gillar:<br><input type=text size=15 maxlength="60" name="gillar">
</td>
</tr>
<tr>
<td colspan=2 valign="top"><font size=1>
Meddelande:<br><TEXTAREA NAME="Meddelande" COLS=30 ROWS=8></textarea>
</td>
</tr>
<tr>
<td colspan=2>
<input type="submit" name="Submit" value="Skicka">
<input type="reset" value="Rensa">
</td>
</tr>
</table>
<!--Här börjar inläggen -->
<h5>Vad har besökarna skrivit.</h5>
<center><hr width="300"></center><br>
<table border="0" cellspacing="0" cellpadding="0">
<%
'Ta ut alla inlägg och sortera dom efter datum
inlagg= "SELECT Namn,Datum,Epost,Ort,Gillar,Meddelande FROM gbok WHERE id=id ORDER BY datum DESC"
Set inlagg= Connect.Execute(inlagg)
'Skriv ut alla inlägg
Do until inlagg.EOF
%>
<tr>
<td><font size=1>Namn:</td><td><font size=1><%=inlagg("Namn")%></font></td>
</tr><tr>
<td><font size=1>Datum:</td><td><font size=1><%=inlagg("Datum")%></font></td>
</tr><tr>
<td><font size=1>Epost:</td><td><font size=1><a href="mailto:<%=inlagg("Epost")%>"><%=inlagg("epost")%></a></font></td>
</tr><tr>
<td><font size=1>Ort:</td><td><font size=1><%=inlagg("Ort")%></font></td>
</tr><tr>
<td><font size=1>Gillar:</td><td><font size=1><%=inlagg("Gillar")%></font></td>
</tr><tr>
<td><font size=1>Meddelande:</td><td><font size=1><%=inlagg("Meddelande")%></font></td>
</tr><tr>
<td colspan="2"><center><hr width="300"></center></td>
</tr>
<%
inlagg.MoveNext
Loop
%>
</table>
</body>
</html>
<%
'Vid stänger databasen
Connect.close
set Connect=nothing
%>
hmm... ser inget fel på koden... testa att ta bort option explicit. Den är ju inte så nödvändig efter man är färdig med kodandet... om inte det funkar så testa att lägga in On Error resume Next
Testa att lägga in en Querystring i action:
<form method="post" action="gbproc.asp?klar=true">
...sen så kollar du om man har skickat sida, isånnafall så redirectas man tillbaks:
<%
If Request.Querystring("klar") = "true" then
Response.Redirect "gbproc.asp"
End if
%>
...detta borde fixa det att du måste uppdatera för att ändringen skall synas...
------------------
MVH / Vide
Min hemsida:henslow.4sale.se/vide/
Nej du det vill sej fortfarande inte.
Hur gör jag det.
Koden du visade här ovan är väl inte sidan som genererar felet?
eller är jag helt ute och cyklar...
Du skickar formuläret till gbproc.asp, visa koden för den sidan så får vi se.
------------------
Toonster
Sätt Dim nanne i gbproc.asp Jag råkade visst städa bort den när jag rensade scriptet från mina grejer. I min gästbok så skickar den att mail till mig varje gång nån skriver nåt nämligen så. Nåja.
------------------
Daniel Olsson - Teknisk Internetkonsult
/N
La upp den i en ny mapp, och dimmade nanne men då står det bara:
Microsoft VBScript runtime error '800a01f4'
Variable is undefined: 'nanne'
/cgi-bin/aspbok/gbok.asp, line 15
sidan finns på addressen: http://reptiler.webhostme.com/cgi-bin/aspbok/gbok.asp
Så här ser gbproc koden ut:
<%@ Language=VBScript %>
<%
'Variabler måste deklareras
Option Explicit
'Deklarerar databas variabler
Dim Connect, conntemp, DSNtemp
'Deklarerar övriga variabler
Dim namn,ort,gillar,epost,Meddelande,sql
' Här skapar vi en dsn-less connection mot gbok
Set Connect=server.CreateObject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("gbok.mdb")
Connect.Open DSNtemp,nanne
'Plockar informationen från formen med Request.Form objektet.
'Server.HTMLEncode tar och fixar så användaren inte kan använda HTML i gästboken
namn=Server.HTMLEncode(Request.Form("namn"))
ort=Server.HTMLEncode(Request.Form("ort"))
gillar=Server.HTMLEncode(Request.Form("gillar"))
epost=Server.HTMLEncode(Request.Form("epost"))
Meddelande=Server.HTMLEncode(Request.Form("Meddelande"))
'Matar in informationen i databasen
sql = "INSERT INTO gbok (Namn,Ort,Gillar,Epost,IP,Datum,Meddelande)"
sql = sql & "VALUES ('"&namn&"','"&ort&"','"&gillar&"','"&epost&"','"&Request.ServerVariables("REMOTE_HOST")&"','"&FormatDateTime(Now,0)&"','"&Meddelande&"')"
Set sql = Connect.Execute(sql)
'Skickar användaren tillbaka till gästboken
Response.Redirect "gbok.asp"
'Vid stänger databasen
Connect.close
set Connect=nothing
%>
Fean vad buggar jag skapat då. Fy mig. Men bra att de kommer upp nu så. Jag har ändrat om i koden och testat och sett att den fungerar. Prova med att ladda hem den. http://www.nanne.net/zip/gbok.zip
------------------
Daniel Olsson - Teknisk Internetkonsult
/N
[Redigerat av nanne den 16 feb 2000]
Japp nu funkar äntligen gästboken.
