09. oktober 2003 - 23:33
Der er
8 kommentarer og 1 løsning
Udenineret variabel fejl
Fejlen: Microsoft VBScript runtime error '800a01f4' Variable is undefined: 'mode' /skp/cv.asp, line 13 KODEN: <%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%> <% option explicit %> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <!--#include file="style.css"--> <!--#include file="header.inc"--> <!--#include file="elevmenu.inc"--> <body> <% mode = Request.QueryString("mode") 'linje 13 if mode = "" then mode = "start" select case mode %> <% case "start" %> <% Dim dbData, rsData, SQL, Path Set dbData = Server.CreateObject("ADODB.Connection") Path = "DBQ=" & server.mappath("skp.mdb") dbData.Open "DRIVER={Microsoft Access Driver (*.mdb)};"&Path Set rsData = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM tblElev WHERE id=" & Session("idUser") rsData.Open SQL, dbData '//Henter brugeren data med Sessionen idUser %>
Annonceindlæg fra Cognizant
AI er ikke problemet. Eksekvering er.
Der bliver investeret massivt i AI. Teknologien er mere tilgængelig end nogensinde, og ambitionerne er høje. Alligevel oplever mange virksomheder, at resultaterne udebliver.
09. oktober 2003 - 23:55
#6
Microsoft VBScript compilation error '800a0401' Expected end of statement /skp/cv.asp, line 13 Dim mode = Request.QueryString("mode") ---------^
09. oktober 2003 - 23:57
#7
<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%> <% option explicit %> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <!--#include file="style.css"--> <!--#include file="header.inc"--> <!--#include file="elevmenu.inc"--> <body> <% Dim mode mode = Request.QueryString("mode") if mode = "" then mode = "start" select case mode %> <% case "start" %> <% Dim dbData, rsData, SQL, Path Set dbData = Server.CreateObject("ADODB.Connection") Path = "DBQ=" & server.mappath("skp.mdb") dbData.Open "DRIVER={Microsoft Access Driver (*.mdb)};"&Path Set rsData = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM tblElev WHERE id=" & Session("idUser") rsData.Open SQL, dbData '//Henter brugeren data med Sessionen idUser %> //>Rune