Jeg kan ikke få denne kode til at virke.
Hej, jeg er ved at lave en side hvor det skal være muligt at tilmelde sig som medlem, men når jeg prøver på at vise siden sker der slet ikke noget. Plz help meMin kode er her.
--------------------
<%@ Language=VBScript %>
<%
Option Explicit
Dim ConnDB, RS, navn, nice, hjemmeside, alder, email, tlf, mobil, status, citat, drik, bommert
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 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,hjemmeside,alder,email,tlf,mobil,status,citat,drik,bommert,msn) VALUES ('" & navn & "','" & 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>
<HEAD>
<SCRIPT LANGUAGE="JAVASCRIPT">
<!--
function open_window(url,sizeX,sizeY) {
mywin = window.open(url,'smileyWin','toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,width=' + sizeX +',height='+ sizeY + '');
}
-->
</SCRIPT>
<STYLE>
.almText{
FONT-FAMILY: Verdana;
FONT-SIZE: 14px;
}
A.link1{
FONT-FAMILY: Verdana;
FONT-SIZE: 12px;
color: #000000;
TEXT-DECORATION: none;
}
A.link1:hover{
FONT-FAMILY: Verdana;
FONT-SIZE: 12px;
color: #0000FF;
font-weight: none;
TEXT-DECORATION: underline;
}
.FlatButton{
font-family: Vendana;
font-size: 14px;
background-color: #ffffff;
border: 1px solid;
border-color: #000000;
}
.FlatInput{
font-family: Vendana;
font-size: 14px;
background-color: #FFFFFF;
border: #000000;
border-style: solid;
border-top-width: 1px;
border-right-width: 1px;
border-bottom-width: 1px;
border-left-width: 1px;
}
</STYLE>
</HEAD>
<BODY BGCOLOR="#ffffff" marginheight="0" topmargin="0" marginwidth="5" leftmargin="5">
<%
end sub
'-----------------------------------------------------------
sub EndOfPage
%>
<HR size=1 color="#000000">
<SPAN CLASS="almtext"><CENTER>
<p></p>
</CENTER></SPAN>
</BODY>
</HTML>
<%
end sub
'-----------------------------------------------------------
sub InputForm
%>
<FORM action="index.asp" METHOD="post" NAME="members"><BR>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="205">
<TR>
<TD CLASS="almtext" width="115">Fulde Navn:</TD>
<TD width="90"><INPUT TYPE="text" name="navn" SIZE="12" CLASS="Flatinput" VALUE="<%=navn%>"></TD>
</TR>
<TR>
<TD width="115">Hjemmeside:</TD>
<TD width="90"><INPUT TYPE="text" name="hjemmeside" SIZE="12" MAXLENGTH="35" CLASS="FlatInput" VALUE="<%=hjemmeside%>"></TD>
</TR>
<TR>
<TD width="115">Alder:</TD>
<TD width="90"><select size="1" name="<%=alder%>">
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
</select></TD>
</TR>
<TR>
<TD width="115">E-Mail:</TD>
<TD width="90"><INPUT TYPE="text" name="email" SIZE="12" CLASS="Flatinput" VALUE="<%=email%>"></TD>
</TR>
<TR>
<TD width="115">Tlf:</TD>
<TD width="90"><INPUT TYPE="text" name="tlf" SIZE="12" CLASS="Flatinput" VALUE="<%=tlf%>"></TD>
</TR>
<TR>
<TD width="115">Mobil:</TD>
<TD width="90"><INPUT TYPE="text" name="mobil" SIZE="12" CLASS="Flatinput" VALUE="<%=mobil%>"></TD>
</TR>
<TR>
<TD width="115">Partner Status:</TD>
<TD width="90"><select size="1" name="D1">
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
</select><INPUT TYPE="text" name="status" SIZE="12" CLASS="Flatinput" VALUE="<%=status%>"></TD>
</TR>
<TR>
<TD width="115">Ynglings Citat:</TD>
<TD width="90"><INPUT TYPE="text" name="citat" SIZE="12" CLASS="Flatinput" VALUE="<%=citat%>"></TD>
</TR>
<TR>
<TD width="115">Ynglings Drikke:</TD>
<TD width="90"><INPUT TYPE="text" name="drik" SIZE="12" CLASS="Flatinput" VALUE="<%=drik%>"></TD>
</TR>
<TR>
<TD width="115">Største Bommert:</TD>
<TD width="90"><INPUT TYPE="text" name="bommert" SIZE="12" CLASS="Flatinput" VALUE="<%=bommert%>"></TD>
</TR>
<TR>
<TD width="115">MSN:</TD>
<TD width="90"><INPUT TYPE="text" name="msn" SIZE="12" CLASS="Flatinput" VALUE="<%=msn%>"></TD>
</TR>
<TR>
<TD width="115"></TD>
<TD width="90"><INPUT TYPE="submit" VALUE="Skriv" CLASS="FlatButton" id=submit1 name=submit1></TD>
</TR>
</TABLE>
</FORM>
