Nu har jag provat allt tror jag, men får samma fel :(
Vad är det som går fel? Skriver ut Id i ett txtfel och den har ett siffervärde som överensstämmer med Id i tabellen medlemmar..
<%
dim id
id = request("alt")
open_database "D:\fysisksökväg.mdb",false
if request("organisation") <> "" then
if request("alt") <> "" then
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save "D:\fysisksökväg"
Set File = Upload.Files("THEFILE")
If Not File Is Nothing Then
Filen = File.ExtractFileName
End If
dim organisation, adress, hemsida
organisation = Upload.Form("organisation")
adress = Upload.Form("adress")
hemsida = Upload.Form("hemsida")
tillhor = Upload.Form("tillhör")
postadress = Upload.Form("postadress")
telefon = Upload.Form("telefon")
fax = Upload.Form("fax")
epost = Upload.Form("epost")
beskrivning = Upload.Form("beskrivning")
strSQL = "UPDATE medlemmar SET organisation = '" & organisation & "', adress = '" & adress & "', hemsida = '" & hemsida & "', tillhör = '"&tillhor&"', postadress = '"&postadress&"', telefon = '"&telefon&"', fax = '"&fax&"', epost = '"&epost&"', logotyp = '"&filen&"', beskrivning = '"&beskrivning&"' "
strSQL = strSQL & " WHERE id ="&id
Conn.Execute strSQL
end if
end if
Set myRecSet11 = Server.CreateObject("ADODB.Recordset")
Set myRecSet11 = Conn.Execute("SELECT * FROM medlemmar WHERE id="&id)
%>