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