13. maj 2002 - 14:45Der er
73 kommentarer og 2 løsninger
fejl i kode kan ik selv rette
hey....
jeg er i gang med at lave sådan noget så jeg kan oprette mange ting til en member side på en cs clan side og jeg får den her fejl når jeg har lavet min kode Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a0401'
' Open your connection to the database as conn ' The (id, name) part is the name of the fields in the database Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=" & Server.MapPath("nyheder.mdb") & "; uid=; pwd=;"
end if SQL = prefixSQL & suffixSQL conn.execute(SQL) conn.Close 'sender os tilbage til start siden response.redirect("default.asp") end if %> hvad er der galt med den e-mail er notat icq er tal og alder os resten er text
Efter ti år i London, Madrid, Paris og Utrecht kommer Sabios AI-fokuserede program af arrangementer om kundeoplevelser, ‘Disrupt’, for første gang til Danmark.
hmmmmmmmmm efter den anden kode jeg har som virker så skulle de ik være der men den anden kode ser sådan er ud <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
' Open your connection to the database as conn ' The (id, name) part is the name of the fields in the database Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=" & Server.MapPath("nyheder.mdb") & "; uid=; pwd=;"
Der har du også: if isdate(request.form("dato")) then prefixSQL = prefixSQL & ",dato) " suffixSQL = suffixSQL & ",#" & request.form("dato") & "#)" else som lukker prefix og suffix...
får den her fejl Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a0400'
En sætning var ventet
/es/opretmember.asp, linje 147
end if ^ min kode er
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
' Open your connection to the database as conn ' The (id, name) part is the name of the fields in the database Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=" & Server.MapPath("nyheder.mdb") & "; uid=; pwd=;"
end if SQL = prefixSQL & suffixSQL conn.execute(SQL) conn.Close 'sender os tilbage til start siden response.redirect("default.asp") end if %>
linje 147 er end if SQL = prefixSQL & suffixSQL conn.execute(SQL) conn.Close 'sender os tilbage til start siden response.redirect("default.asp") end if den siste end if
Hvis du vil gøre som i det oprindelige eksempel skal du brugen dee prefix og suffix du startede med, og så sætte: if isdate(request.form("dato")) then prefixSQL = prefixSQL & ",dato) " suffixSQL = suffixSQL & ",#" & request.form("dato") & "#)" else prefixSQL = prefixSQL & ") " suffixSQL = suffixSQL & ")" end if
ind lige inden SQL = prefixSQL & suffixSQL (i den oprindelige kode)
Alle celle som er sat til tal skal du ikke havde ' ' omkring, der skal kun '' omkring hvis det er tekst: Eks hvis Alder er et tal så skal SQL'en være: suffixSQL = "values ('" & request.form("medlem") & "', " & request.form("alder") & ",'" & request.form("by") & "','" & request.form("Email") & "','" & request.form("icq") & "','" & request.form("rang") & "','" & "','" & request.form("favt") & "','" & request.form("favm") & "','" & request.form("spillestil") & "','" & request.form("cpu") & "','" & request.form("ram") & "','" & request.form("grafikkort") & "','" & request.form("skærm") & "','" & request.form("lydkort") & "','" & request.form("hd") & "','" & request.form("mus") & "','" & request.form("inet") & "','" & request.form("favv") & "')"
Nej det i SQL sætningen når man indsætter hvis det er tekst skal man indsætte ' foran og efter teksten. Hvis det er tal skal man bare skrive tallet:
Eks: "INSERT INTO tabel (tekst_kol, tal_kol) VALUES ('teksten er her', 10)"
Ved tekst skal det være med request.form: "'" & request.form("medlem") & "', " Ved tal skal det være med request.form: "" & request.form("alder") & ", "
min kode ser sådan her ud nu <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
' Open your connection to the database as conn ' The (id, name) part is the name of the fields in the database Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=" & Server.MapPath("nyheder.mdb") & "; uid=; pwd=;"
end if SQL = prefixSQL & suffixSQL conn.execute(SQL) conn.Close 'sender os tilbage til start siden response.redirect("default.asp") end if %>
men den kommer med den her fejl :(
Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a0400'
En sætning var ventet
/es/opretmember.asp, linje 147
end if ^ linje 147 er end if i det her stykke SQL = prefixSQL & suffixSQL conn.execute(SQL) conn.Close 'sender os tilbage til start siden response.redirect("default.asp") end if
end if SQL = prefixSQL & suffixSQL conn.execute(SQL) conn.Close 'sender os tilbage til start siden response.redirect("default.asp") %> conn.execute(SQL)
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
' Open your connection to the database as conn ' The (id, name) part is the name of the fields in the database Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=" & Server.MapPath("nyheder.mdb") & "; uid=; pwd=;"
det er også en underlig måde din else end if står på Prøv at lave koden sådan her:
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
' Open your connection to the database as conn ' The (id, name) part is the name of the fields in the database Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=" & Server.MapPath("nyheder.mdb") & "; uid=; pwd=;"
Microsoft OLE DB Provider for ODBC Drivers fejl '80040e14'
[Microsoft][ODBC Microsoft Access-driver] INSERT INTO-sætningen indeholder det ukendte feltnavn "'alder'". Kontroller, at du har skrevet navnet korrekt, og forsøg derefter at udføre handlingen igen.
/es/opretmember.asp, linje 140 skal spise givm ig 5 min :D
hvad kommer min sql så til at hede når den ser sådan her ud nu prefixSQL = "Insert into members (medlem, alder, [by], Email, icq, rang, favt, favm, spillestil, cpu, ram, grafikkort, skærm, lydkort, hd, mus, inet, favv) "
skal jeg have <input type="hidden" name="FFnyhedsID" value="<% Response.Write rs("ID") %>"> ind et sted der er nemlig en kode som jeg nok godt kan bruge
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
' Open your connection to the database as conn ' The (id, name) part is the name of the fields in the database Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=" & Server.MapPath("nyheder.mdb") & "; uid=; pwd=;"
Microsoft OLE DB Provider for ODBC Drivers fejl '80040e14'
[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl, fordi der mangler en operator. i forespørgselsudtrykket "'53534543' rang = 'crew'".
/es/retmember.asp, linje 159 :(((( hele min kode er det her: <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=" & Server.MapPath("nyheder.mdb") & "; uid=; pwd=;"
'Redirect her if Request.Form("slet") = "slet" then Response.Redirect("retmember.asp") 'Til side, ved sletning else Response.Redirect("members.asp") 'Til side, ved rettelse end if end if
strSQL = "SELECT * FROM members;" set rs = conn.Execute (strSQL)
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.
