Radio buttons i form til upload af info og img til db
Jeg kan ikke få min radio buttons til at virke i følgende.<html>
<body>
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = True
Upload.SetMaxSize 300000, True
Upload.SaveVirtual("../profil/foto/")
'For Each item in Upload.Form
set Str_SexID = Upload.Form("SexID")
set Str_Navn = Upload.Form("Navn")
Set Str_Kaldenavn = Upload.form("Kaldenavn")
Set Str_By = Upload.form("By")
Set Str_Dato = Upload.form("Dato")
Set Str_Erhverv = Upload.form("Erhverv")
Set Str_Blusenr = Upload.form("Blusenr")
Set Str_Saesoner = Upload.form("Saesoner")
Set Str_klubber = Upload.form("Klubber")
For Each File in Upload.Files
Dim FileName
FileName = File.ExtractFileName
if Err <> 0 Then
Response.Write "Der er sket en fejl! : " & Err.Description
Else
Response.Write "Filen "&FileName&" er uploaded!<br>"
dbConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\home\website\db\profil.mdb;"
strSQL = "SELECT * FROM profil"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open strSQL, dbConnection, 1, 3
rs.AddNew
rs("SexID") = Str_SexID
rs("Navn") = Str_Navn
rs("Kaldenavn") = Str_Kaldenavn
rs("By") = Str_By
rs("Dato") = Str_Dato
rs("Erhverv") = Str_Erhverv
rs("Blusenr") = Str_Blusenr
rs("Saesoner") = Str_Saesoner
rs("Klubber") = Str_Klubber
rs("Billed") = FileName
rs.Update
rs.Close
Set rs = Nothing
Response.Redirect "accept.asp"
End If
Next
%>
</body>
</html>
Den kommer med en fejl i linie 45 der lyder således.
Linie 45 = rs("SexID") = Str_SexID
Fejl = Filen mitimg.jpg er uploaded!
ADODB.Recordset error '800a0cc1'
Unknown runtime error
/2002/login/upload.asp, line 45
