Fellmess IBLAND...??

Vad står det på rad 84? och raderna innan....

på rad 84:

Set oRec = oConn.execute(strSQL)

Så jag tippar på att ngt är fel på:

strSQL = "UPDATE anv_data SET Alder = '" & alder & "', Bor = '" & bor & "', Email = '" & email & "', Hemsida = '" & hemsida & "', ICQ = '" & ICQ & "', MSN = '" & MSN &"', Info = '" & info & "' WHERE Anv_Namn LIKE '" & id & "'"

Men nu funkar det, men skulle vilja veta vad jag kan förbättra.

Jag antar att det kanske ska stå:

strSQL = "UPDATE anv_data SET Alder = '" & CStr(alder) & "', Bor = '" & bor & "', Email = '" & email & "', Hemsida = '" & hemsida & "', ICQ = '" & ICQ & "', MSN = '" & MSN &"', Info = '" & info & "' WHERE Anv_Namn LIKE '" & CStr(id) & "'"

Om du nu har skrivit rätt typ i SQL-strängen?

PRovade o byta, blev ingen skillnad på vad som skulle hända, men det kanske körs stabilare nu??

Vad betyder eller vad gör CStr() ??

Nu har jag därimot ett nytt fel mess, på en annan fil, men kör det i den här tråden:

Microsoft VBScript runtime error '800a01a8' 

Object required: '' 

/hemsida_dev/forum/uppdatera_antal.asp, line 23

Det har funkat skitbra hela tiden, nu helt plötsligt bara utan att jag gjort ngra ändringar:

<%
Response.Expires = -1000
'_______________________________________________________________

id = Request("id")
'tabell = Request("t")
tabell = "forum_data"

Dim oConnection
Dim oRecordset
Dim strSQL

'_______________________________________________________________

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../hemsida_db/db_forum.mdb"))

'_______________________________________________________________

strSQL= "UPDATE " & tabell & " SET Antal = Antal + 1 WHERE ID in(" & id & ")"

Set oRecordset = oConnection.Execute(strSQL)

Set oConnection = NOTHING
Set oRecordset = NOTHING
Set strSQL = NOTHING
%>

Måste bara ha hjälp med deetta

Är alla kolumnerna i databasen varchar/text el. likn.? Använd alltid replace(värde,"'","''"), så att du inte exponerar databasen vid ex. inloggning...

UPDATE anv_data SET Alder = '" & alder & "', Bor...

Om t.ex. Alder är int/Tal så ska du inte använda '-tecknet, och då kan även ett fel uppstå om värdet du skickar in är tomt, dvs gör en koll innan, typ.

if alder="" then alder=0

En sak till, gör inte en update med LIKE, använd =.

ok, tack, det här är medlemmars uppgifter till en community jag håller på o bygger i ASP & Flash, så det är lite spec. man måste göra aspkoden flashvänlig.

Det var ett fasligt skrivande om att det används till Flash. Vad har det egentligen med saken att göra? I största allmänhet tänker jag på?

Script som funkar men som inte funkar...

Det här scriptet lägger till ett till "antal svar" på varje tråd i mitt forum. Det har funkat skitbra, tills nu, har inte ändrat det ngt, bara slutade o fnka...

kod:--------------------------------------------------------------------------------
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/hemsida_dev/forum/uppdatera_antal.asp, line 23
--------------------------------------------------------------------------------

Det har funkat skitbra hela tiden, nu helt plötsligt bara utan att jag gjort ngra ändringar:

kod:--------------------------------------------------------------------------------
<%
Response.Expires = -1000

id = Request("id")
'tabell = Request("t")
tabell = "forum_data"

Dim oConnection
Dim oRecordset
Dim strSQL

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../hemsida_db/db_forum.mdb"))

strSQL= "UPDATE " & tabell & " SET Antal = Antal + 1 WHERE ID in(" & id & ")"

Set oRecordset = oConnection.Execute(strSQL)

Set oConnection = NOTHING
Set oRecordset = NOTHING
Set strSQL = NOTHING
%>
--------------------------------------------------------------------------------

Måste bara ha hjälp med deetta

<% 
Response.Expires = -1000 

Dim id, oConn, strSQL, tabell

id = Request("id") 
'tabell = Request("t") 
tabell = "forum_data"  

Set oConn = Server.CreateObject("ADODB.Connection") 
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../hemsida_db/db_forum.mdb")) 

strSQL= "UPDATE " & tabell & " SET Antal = Antal + 1 WHERE ID in(" & id & ")" 
oConn.Execute(strSQL) 

oConn.Close
Set oConn = Nothing
%>

Solbulle => PRova ta ett script ett helt vanligto kör det i flash sen, kommer inte funka, flash måste få in ett "flashvänligt" script, som det kan tolka, därför tar jag upp det gång på gång, för att itne folk ska dra till med massas extragrejjer som jag ändå måste ta bort ; )

Ok... ;)

Har du testat koden jag skrev?

Sebbe skrev:

<% 
Response.Expires = -1000 

Dim id, oConn, strSQL, tabell

id = Request("id") 
'tabell = Request("t") 
tabell = "forum_data"  

Set oConn = Server.CreateObject("ADODB.Connection") 
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../hemsida_db/db_forum.mdb")) 

strSQL= "UPDATE " & tabell & " SET Antal = Antal + 1 WHERE ID in(" & id & ")" 
oConn.Execute(strSQL) 

oConn.Close
Set oConn = Nothing
%>

Du får nog

Object required: ''

för att du försöker med

Set strSQL = Nothing

vilket inte kommer att fungera. Detta har redan Sebbe påpekat.

Ok, tack,det funkqr nu iaf.