Hejsa jeg er ved at starte mit eget ASP webhost og har så lidt problemer med opret bruger her er fejlen:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-driver] Handlingen skal bruge en opdaterbar forespørgsel.
/superhost/opretbruger.asp, line 30
og her er:
create.asp:
<code>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<link rel="stylesheet" type="text/css" href="style.css">
<title>Opret bruger</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.style1 {font-family: Verdana}
-->
</style></head>
<body>
<h2><span class="style1">Opret bruger</span></h2>
<hr>
<form action="default2.asp?showfile=opretbruger.asp" method="post" name="Form" id="Form">
<table width="257" border="1" cellspacing="2">
<tr>
<td width="72">Brugernavn:</td>
<td width="169"><input name="brugernavn" type="text" id="brugernavn"></td>
</tr>
<tr>
<td>Kode:</td>
<td><input name="kode" type="password" id="kode"></td>
</tr>
<tr>
<td>E-Mail:</td>
<td><input name="email" type="text" id="email"></td>
</tr>
<tr>
<td>Beskrivelse:</td>
<td><textarea name="beskrivelse" id="beskrivelse"></textarea></td>
</tr>
</table>
<p>
<input type="submit" name="Submit" value="Opret bruger">
<input name="Submit2" type="reset" value="Slet alt">
</p>
</form>
<p> </p>
</body>
</html>
</code>
opretbruger.asp
<code>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<link rel="stylesheet" type="text/css" href="style.css">
<title>Opret bruger</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/superhost.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
strSSQL ="SELECT TOP 1 * FROM medlemmer WHERE Brugernavn = '" & Request.Form("brugernavn") & "'"
set userExist = conn.execute(strSSQL)
If Not userExist.EOF Then 'Hvis den ikke er End Of File, dvs at der er en bruger, redirecter den
response.Write "Det vaglte brugernavn findes, vælg et andet!..."
End If
If Request.Form("brugernavn") = "" Then
response.write "<b>Der skal være et brugernavn!...</b>"
Else
strSQL="insert into medlemmer (brugernavn, kode, email, beskrivelse) values ('" & Request.Form("brugernavn") & "','" & Request.Form("kode") & "','" & Request.Form("email") & "','" & Request.Form("beskrivelse") & "');"
Conn.Execute strSQL
End if
Response.Write strSQL
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.CreateFolder("C:\\Inetpub\\wwwroot\\superhost\\sider\\" & request.form("user") & "")
set f=nothing
set fs=nothing
response.write "<b>Din bruger er nu oprettet. !!</b>"
response.Redirect "default2.asp?showfile=don.asp"
%>
</body>
</html>
</code>
hvad er der galt?