Jer har prøvet før - db connection hos enavn
Hej igen,Jeg er lidt på den...
Jeg kan kun læse ikke updaterer, jeg har talt med min web udbyder enavn, de siger at jeg skal bruge følgende connection, og databasen er ikke skrivebeskyttet.
<%Response.Buffer = True%>
<%
ConnString = "DSN=pharmacentiacomdsn"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString
%>
Jeg har gemt det i en fil conn.asp.
Nu har jeg prøvet alt et eks:
<!--#include file="conn.asp"-->
<html>
<head><title>Medlems Klup</title></head>
<body>
<form action="tilmeld.asp" method="post">
<font size="4">Bliv medlem</font><p>
<%
'inholdet af formular felterne bliver hentet
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
navn = Request("navn")
brugernavn = Request("brugernavn")
email = Request("email")
password = Request("password")
'der bliver tjekket om brugeren har udfylt alle felterne rigtigt
err = 0
err = 0
if brugernavn = "" then
err = 1
errmess = errmess & "Du skrev ikke noget brugernavn<br>"
end if
if password = "" then
err = 1
errmess = errmess & "Du skrev ikke noget password<br>"
end if
'tjekker om emailen er gyldig
if InStr(email,"@") = 0 or InStr(email,".") = 0 or email = "" then
err = 1
errmess = errmess & "Din email adresse er ikke gyldig<br>"
end if
if navn = "" then
err = 1
errmess = errmess & "Du skrev ikke dit navn<br>"
end if
if err = 0 then
'alle felterne er udfylt korekt, tjekker om brugernavnet er ledigt
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "select * from members where brugernavn = '" & request.form("brugernavn") & "';"
rs.open SQL, Conn, 3, 3
if not rs.EOF then
Response.Write "Brugernavnet er allerede taget<br>"
else
'brugernavnet er var ledigt og brugerens data bliver tilføjet til databasen
rs.AddNew
rs("navn") = navn
rs("email") = email
rs("password") = password
rs("brugernavn") = brugernavn
rs("tekst") = tekst
rs.update
'bare skriv response.Redirect "" og så lokal placeringen af den fil brugeren skal komme over til når han har udfylt formularen rigtigt
Response.Write "Du er nu medlem<br>"
end if
end if
end if %>
<%= errmess %>
<br>navn: <input type="text" name="navn" value="<%=Request("navn")%>">
<br>brugernavn: <input type="text" name="brugernavn" value="<%=Request("brugernavn")%>">
<br>password: <input type="text" name="password">
<br>email: <input type="text" name="email" value="<%=Request("email")%>">
<br>fri tekst: <textarea name="tekst" rows="1" cols="20"><%=Request("tekst")%></textarea>
<p><input type="submit" value="Tilmeld">
</form>
<%
'lukker forbindelsen
conn.close
set conn = nothing
%>
Jeg der nogle der også bruger enavn med en MS Access connection, jeg vil gerne have et par eks.
På forhånd tak.
GP
