Webhotellet ligger hos azero.dk ,- og de har på deres server en
db-mappe og en www-mappe.
Og databaserne skal ligge i deres db-mappe.
Jeg håber at der sidder en som har en løsning på dette problem.
Jeg får en besked i titel-linien der hedder
( Der opstod en interne HTTP 500-serverfejl )
Og det er med denne nedenstående kode.
<%
Dim brugernavn, pw, mail, icq, homepage, fejl
fejl = false
brugernavn = Request.Form("brugernavn")
password = Request.Form("password")
email = Request.Form("email")
icq = Request.Form("icq")
hjemmeside = Request.Form("hjemmeside")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/db/brugere.mdb")
strConnect = "Data Source=d:\home\MIT FTP
LOGIN\db\brugere.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
'Tester om brugernavn findes i databasen
Set rs = Conn.execute ("SELECT * FROM brugere WHERE brugernavn='"
& brugernavn & "'")
If Not rs.Eof Then
Response.Write("<p><font color=red>Brugernavn er allerede
oprettet! Vælg venligst et andet brugernavn!</font></p>")
fejl = true
End If
Conn.Close
Set Conn = Nothing
If brugernavn = "" Then
Response.Write("<p><font color=red>Indtast venligst et
brugernavn!</font></p>")
fejl = true
End If
If password = "" Then
Response.Write("<p><font color=red>Indtast venligst et
password!</font></p>")
fejl = true
End If
If email = "" Then
Response.Write("<p><font color=red>Indtast venligst en e-mail
adresse!</font></p>")
fejl = true
End If
If hjemmeside = "http://" Then
hjemmeside = ""
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/brugere.mdb")
Conn.Open DSN
strSQL = "INSERT INTO brugere "
strSQL = strSQL & "(brugernavn, password, email, icq, hjemmeside,
oprettet, sidste_login)"
strSQL = strSQL & " values ('" & brugernavn & "', '" & password &
"', '" & email & "', '" & icq & "', '" & hjemmeside & "', '" &
Now
& "', '" & Now & "')"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
'Udskriver information
Response.Write "<p><b>Brugernavn:</b> " & brugernavn
Response.Write "<p><b>Password:</b> " & password
Response.Write "<p><b>E-mail:</b> <a href=mailto:" & email &
">" & email & "</a></p>"
Response.Write "<p><b>ICQ:</b> " & icq
Response.Write "<p><b>Hjemmeside:</b> <a href=" & hjemmeside
& " target=_blank>" & hjemmeside & "</a></p>"
Response.Write "<p>Velkommen til, " & brugernavn & "! Du er
nu oprettet som bruger!</p>"
Response.Write "<p><a href=javascript:window.print()>Udskriv
information</a></p>"
End If
If fejl = true Then
Response.Write("<p><a
href=javascript:history.back()>Tilbage</a></p>")
End If
%>
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials