webForumDet fria alternativet

Nu funkar det...men nåt annat strular....

ASP

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 →
Medlem sedan mars 2003970 inlägg
#21

ah ;)
Tack :birp Hedersprick! :e

Medlem sedan nov. 20017 144 inlägg
#22

Det finns några namn som är reserverade i alla databaser, vilka det är ser lite olika ut beroende på vilken DBMS man har.

Medlem sedan mars 2003970 inlägg
#23

Huh :q
Hur menar du nu, DBMS?
Vilka namn :q :r Sorry, jag skulle gärna sluppit det här inlägget.....

Medlem sedan mars 2003970 inlägg
#24

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?

Medlem sedan mars 20015 287 inlägg
#25

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.

Medlem sedan mars 2003970 inlägg
#26

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

Medlem sedan aug. 20012 349 inlägg
#27

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
Medlem sedan mars 2003970 inlägg
#28

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 :(

Medlem sedan mars 2003970 inlägg
#29

HOPPLA!
Jag var nog lite trött igår..... :r Tack för att du pekade ut det lilla felet :e

Medlem sedan mars 2003970 inlägg
#30

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

Medlem sedan mars 20015 287 inlägg
#31

Har du hela strSQL-harangen på en rad i ditt script?
Och sen "Connect.Execute (strSQL) " på en ny rad?

Medlem sedan mars 2003970 inlägg
#32

Nope........Connect.Execute (strSQL) är på samma rad...är detta fel :q

Medlem sedan mars 2003970 inlägg
#33

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

Medlem sedan mars 20016 260 inlägg
#34

du har troligtvis en if sats som inte är avslutad nånstans i koden...
du avslutar if satsen med end if

Medlem sedan mars 2003970 inlägg
#35

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

Medlem sedan mars 2003970 inlägg
#36

Eller...? Vad har jag gjort fel då :q

Medlem sedan nov. 20017 144 inlägg
#37

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()
%>
Medlem sedan nov. 20017 144 inlägg
#38

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()

Medlem sedan mars 20015 287 inlägg
#39

Fast det egentliga felet är väl egentligen inte i If-satserna?

Medlem sedan nov. 20017 144 inlägg
#40

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.

270 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
129 ms — deklarationer (db)
0 ms — hämta statistik (cache)
137 ms — hämta tråd, inlägg och bilagor (db)
122 ms — ändringar (db)