billede ud fra handling og ikke tekst
Hej alle sammen,I dette Script, ville jeg gerne have billede indsat.
- Det skal forstår på denne måde at ud fra hvad det evt. problme kunne være så fra kommer et billede og ikke teksten som den gør pt. - problemet er bare jeg kan ikke se mig ud fra det...
Håber I kan:
her er scriptet:
<%
Dim email, pw, fejl
fejl = false
navn = Request.Form("navn")
email = Request.Form("email")
svar = Request.Form("svar")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../../db/databasen.mdb")
Conn.Open DSN
'Tester om brugernavn findes i databasen
Set rs = Conn.execute ("SELECT * FROM bruger_konku WHERE email ='" & email & "'")
If Not rs.Eof Then
Response.Write("<p><font color=red>E-mail bruges allerede! Vælg venligst en anden E-mail.</font></p>")
fejl = true
End If
Conn.Close
Set Conn = Nothing
If email = "" Then
Response.Write("<p><font color=red>Indtast venligst et E-mail!</font></p>")
fejl = true
End if
'Opretter profil i databasen
If fejl <> true Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../../db/databasen.mdb")
Conn.Open DSN
strSQL = "INSERT INTO bruger_konku (" &_
"navn," &_
"email," &_
"svar)" &_
"values('" & navn & "'," &_
" '" & email & "'," &_
"'" & svar & "')"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
Response.Write "<p>Din E-mail adresse , " & email & "! er nu med i konkurrencen!</p>"
End If
If fejl = true Then
End If
%>
