opstilling af asp kode, så siden kan læse fra en database
Denne side skulle gerne kunne læse fra en database. men som sagt er jeg n00b til asp, så jeg har bare lige smækket lidt sammen, men det virker slet slet ikke, mit spørgsmål er nu hvordanjeg kan få denne kode redigeret til at kunne virkekoden
-----------------
<%@ Language=VBScript %>
<%
Option Explicit
Dim ConnDB, RS, navn, nick, hjemmeside, alder, email, tlf, mobil, status, citat, drik, bommert, msn
Set ConnDB = Server.CreateObject("ADODB.Connection")
ConnDB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db\database.mdb")
'Fjerner evt mellemrum i start og slut af input
navn = Trim(Request.Form("navn"))
nick = Trim(Request.Form("nick"))
hjemmeside = Trim(Request.Form("hjemmeside"))
alder = Trim(Request.Form("alder"))
email = Trim(Request.Form("email"))
tlf = Trim(Request.Form("tlf"))
mobil = Trim(Request.Form("mobil"))
status = Trim(Request.Form("status"))
citat = Trim(Request.Form("citat"))
drik = Trim(Request.Form("drik"))
bommert = Trim(Request.Form("bommert"))
msn = Trim(Request.Form("msn"))
'-----------------------------------------------------------
IF (len(navn) <> 0) or len(nick) <> 0 or len(hjemmeside) <> 0 or len(alder) <> 0 or len(email) <> 0 or len(tlf) <> 0 or len(mobil) <> 0 or len(status) <> 0 or len(citat) <> 0 or len(drik) <> 0 or len(bommert) <> 0 or len(msn) <> 0 Then
'Der er indsendt data
IF (len(navn) <> 0) AND len(nick) <> 0 AND len(hjemmeside) <> 0 AND len(alder) <> 0 AND len(email) <> 0 AND len(tlf) <> 0 AND len(mobil) <> 0 AND len(status) <> 0 AND len(citat) <> 0 AND len(drik) <> 0 AND len(bommert) <> 0 AND len(msn) <> 0 Then
IF ConnDB.Execute ("SELECT * FROM members WHERE navn='" & navn & "' AND nick='" & nick & "' AND hjemmeside='" & hjemmeside & "' AND alder='" & alder & "' AND email='" & email & "' AND tlf='" & tlf & "' AND mobil='" & mobil & "' AND status='" & status & "' AND citat='" & citat & "' AND drik='" & drik & "' AND bommert='" & bommert & "' AND msn='" & msn & "'").EOF Then
ConnDB.execute "INSERT INTO members (navn,nick,hjemmeside,alder,email,tlf,mobil,status,citat,drik,bommert,msn) VALUES ('" & navn & "','" & nick & "','" & hjemmeside & "','" & alder & "','" & email & "','" & tlf & "','" & mobil & "','" & status & "','" & citat & "','" & drik & "','" & bommert & "','" & msn & "')"
Response.Redirect "index.asp"
ELSE
StartOfPage
InputForm
%><SPAN CLASS="almText">xxx xxx xxx</SPAN><P>
<%
members
EndOfPage
End if
ELSE
'Alle felter er ikke udfyldt
StartOfPage
InputForm
%><SPAN CLASS="almText">Du mangeler at udfylde et eller flere af felterne!!!</SPAN><P>
<%
members
EndOfPage
End if
Else
StartOfPage
InputForm
members
EndOfPage
End if
'-----------------------------------------------------------
sub StartOfPage
%>
<html>
<body>
<%
sub members
Set RS = ConnDB.Execute("SELECT * FROM members ORDER BY id DESC")
Do While Not Rs.eof
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="29%" id="AutoNumber1">
<tr>
<td width="100%">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="400" id="AutoNumber2">
<tr>
<td width="123" rowspan="10"> </td>
<td width="121">Fulde Navn (Nick):</td>
<td width="152"><%=navn%> (<%=nick%>)</td>
</tr>
<tr>
<td width="121">Hjemmeside:</td>
<td width="152"><%=hjemmeside%> </td>
</tr>
<tr>
<td width="121">Alder:</td>
<td width="152"><%=alder%> </td>
</tr>
<tr>
<td width="121">E-mail:</td>
<td width="152"><%=email%> </td>
</tr>
<tr>
<td width="121">Tlf./Mobil:</td>
<td width="152"><%=tlf%>/<%=mobil%></td>
</tr>
<tr>
<td width="121">Partner Status:</td>
<td width="152"><%=status%> </td>
</tr>
<tr>
<td width="121">Ynglings Citat:</td>
<td width="152"><%=citat%> </td>
</tr>
<tr>
<td width="121">Ynglings Drikke:</td>
<td width="152"><%=drik%> </td>
</tr>
<tr>
<td width="121">Største Bommert:</td>
<td width="152"><%=bommert%> </td>
</tr>
<tr>
<td width="121">MSN:</td>
<td width="152"><%=msn%> </td>
</tr>
</table>
</td>
</tr>
</table>
<%
RS.movenext
Loop
end sub
%>
</body>
</html>
