ah ;)
Tack :birp Hedersprick! :e
Nu funkar det...men nåt annat strular....
110 svar · 1 504 visningar · startad av BulletBoyCrime · sida 2 av 6
Frågan, av BulletBoyCrime
JA! Nu funkar min connection till databasen :e Skrev in {MySQL ODBC 3.51 Driver} i driver="" Tack! Men nu strular detta......... Set RecSet = Server.CreateObject("ABODB.Recordset") Borde inte detta funka? :q
Läs frågan i sin helhet →Det finns några namn som är reserverade i alla databaser, vilka det är ser lite olika ut beroende på vilken DBMS man har.
Huh :q
Hur menar du nu, DBMS?
Vilka namn :q :r Sorry, jag skulle gärna sluppit det här inlägget.....
Jag kan upprepa felmeddelandet:
Kompileringsfel i Microsoft VBScript error '800a0401'
Slut på programsats förväntas.
/crimea bay/registered.asp, line 149
RecSet.INSERT INTO players ([name]blablabla....
-------------------^
Det står ju slut från programsats väntas, vilket verkar vara felet.
Hur avslutar jag programsatsen?
Du blandar vilt i olika kodningssätt.
Du använder dig tydligen inte av den kod som @nders gav dig?
Testa den! Du ska inte ha något recset där.
@nders skrev:
strSQL = "INSERT INTO players...
Ändra till det han visade, sen kanske det är lättare för oss om du visar mer av din kod.
visst......
*pust* jag vet att detta inte är lätt för er men inte för mig heller ;)
ska fixa det...sen lägger jag upp lite kod, ni är ju off nu ändå så det är ingen idé just nu.......
Jag tror du missuppfattat lite hur man gör, man kan inte skriva RecSet.INSERT, finns inget som heter så...
du behöver inget recordset alls.
så här br det typ se ut med connection och allt:
set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "din connections sträng till databasen"
strSQL = "INSERT INTO myTabell(myFiled1, myField2) VALUES('" & strängVariabel1 & "', " & IntergerVariable2 & ")"
myConn.Execute strSQL
Har jag använt RecSet.INSERT :q
Fasen vikket misstag i så fall...... :r ska kolla.
För övrigt är det så jag har gjort men det går inte :(
HOPPLA!
Jag var nog lite trött igår..... :r Tack för att du pekade ut det lilla felet :e
Nu har jag gjort som det står.....Felmeddelandet ändrades litegranna.........
Kompileringsfel i Microsoft VBScript error '800a0401'
Slut på programsats förväntas.
/crimea bay/registered.asp, line 148
strSQL = "INSERT INTO players (name, password, title, perk, realname, phone, country, cash, health, curhealth, wepskill, expskill, protect, spyskill, ccskill, hokskill, driskill, druskill, lawskill, energymax, energycur, honor) VALUES ('" & SQLSafeName & "', '" & SQLSafePassword & "', " & SQLSafeTitle & ", " & SQLSafePerk & ", '" & SQLSafeRealname & "', '" & SQLSafePhone & "', '" & SQLSafeCountry & "', " & Cash & ", " & Health & ", " & Curhealth & ", " & wski & ", " & eski & ", " & pski & ", " & sski & ", " & cski & ", " & hski & ", " & dski & ", " & duski & ", " & lski & ", " & enmax & ", " & encur & ", " & honor & ")" Connect.Execute (strSQL)
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^
Får redigera om det ser förj*vligt ut........
Men själva "---------^" grejen har blivit längre och pekar på nåt annat. Vad betyder det :q
Har du hela strSQL-harangen på en rad i ditt script?
Och sen "Connect.Execute (strSQL) " på en ny rad?
Nope........Connect.Execute (strSQL) är på samma rad...är detta fel :q
Nu går det framåt, den sitter på en annan rad, det funkar fint, men nu är detta felet.
Kompileringsfel i Microsoft VBScript error '800a03f6'
'End' förväntas.
/crimea bay/registered.asp, line 186
Här är rad 186:
Connect.Close
Jag försökte lägga in End bredvid men då kom detta felmeddelande:
Kompileringsfel i Microsoft VBScript error '800a03ea'
Syntaxfel
/crimea bay/registered.asp, line 186
Connect.Close End
--------------^
Kan nån hjälpa mig fixa det här sista nu?
Tack! :e
du har troligtvis en if sats som inte är avslutad nånstans i koden...
du avslutar if satsen med end if
jooo.......end if har jag tatt med..
jag lägger upp den koden också.......
<%
If Request.Form("title") = 1 Then
Response.Write "Your Title is: Hitman"
ElseIf Request.Form("title") = 2 Then
Response.Write "Your Title is: Spy"
ElseIf Request.Form("title") = 3 Then
Response.Write "Your Title is: Nailer"
ElseIf Request.Form("title") = 4 Then
Response.Write "Your Title is: Pimp"
ElseIf Request.Form("title") = 5 Then
Response.Write "Your Title is: Dealer"
ElseIf Request.Form("title") = 6 Then
Response.Write "Your Title is: Survivor"
ElseIf Request.Form("title") = 7 Then
Response.Write "Your Title is: Driver"
ElseIf Request.Form("title") = 8 Then
Response.Write "Your Title is: Lawyer"
ElseIf Request.Form("title") = 9 Then
Response.Write "Your Title is: Explosives Expert"
Else
Response.Write "You didn´t pick a title."
End If
Connect.Close
%>
Är inte detta rätt? Jag har ingen aning :r men det verkar väl rätt, tycker jag iaf även om det inte är det :e
Eller...? Vad har jag gjort fel då :q
Testa med en select case istället:
<%
Dim title
Select case Request.Form("title")
Case "1"
title = "Your Title is: Hitman"
case "2"
title = "Your Title is: Spy"
case "3"
title = "Your Title is: Nailer"
case "4"
title = "Your Title is: Pimp"
case "5"
title = "Your Title is: Dealer"
case "6"
title = "Your Title is: Survivor"
case "7"
title = "Your Title is: Driver"
case "8"
title = "Your Title is: Lawyer"
case "9"
title = "Your Title is: Explosives Expert"
case Else
title = "You didn´t pick a title."
End select
Response.Write title
Connect.Close()
%>
Annars så kan du alltid göra en trevlig array.
function fncTitle()
Dim title, myArray
title=Request.form("title")
myArray=array("**** None *****","Hitman","Spy","Nailer","Pimp","Dealer","Survivor","Driver","Lawyer","Explosives Expert")
fncTitle = myArray(title)
end function
Skrivs ut med: Response.write "Your Title is: "& fncTitle()
Fast det egentliga felet är väl egentligen inte i If-satserna?
Nej, men det såg ju så krångligt ut med dom.
Du får nog bifoga din kod eller lägga upp en länk, för det är ju inget fel på den koden du visade.
