Min kode virker ikke!
Hej jeg er ved at lave en side hvor man skal kunne oprette sig som medlem, men jeg kan bare ikke få siden til at fungere, hvad kan der være galt?Min kode.
----------------------------------
<%@ 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 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="248">
<TR>
<TD CLASS="almtext" width="119">Fulde Navn:</TD>
<TD width="129">
<INPUT TYPE="text" name="navn" SIZE="15" CLASS="Flatinput" VALUE="<%=navn%>"></TD>
</TR>
<TR>
<TD width="119">Hjemmeside:</TD>
<TD width="129">
<INPUT TYPE="text" name="hjemmeside" SIZE="15" MAXLENGTH="35" CLASS="FlatInput" VALUE="<%=hjemmeside%>"></TD>
</TR>
<TR>
<TD width="119">Alder:</TD>
<TD width="129"><select size="1" name="alder">
<option selected>Vælg venligst.</option>
<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="119">E-Mail:</TD>
<TD width="129">
<INPUT TYPE="text" name="email" SIZE="15" CLASS="Flatinput" VALUE="<%=email%>"></TD>
</TR>
<TR>
<TD width="119">Tlf:</TD>
<TD width="129">
<INPUT TYPE="text" name="tlf" SIZE="15" CLASS="Flatinput" VALUE="<%=tlf%>"></TD>
</TR>
<TR>
<TD width="119">Mobil:</TD>
<TD width="129">
<INPUT TYPE="text" name="mobil" SIZE="15" CLASS="Flatinput" VALUE="<%=mobil%>"></TD>
</TR>
<TR>
<TD width="119">Partner Status:</TD>
<TD width="129"><select size="1" name="status">
<option selected>Vælg venligst.</option>
<option value="Kæreste">Kæreste</option>
<option value="Løst forhold">Løst forhold</option>
<option value="Single">Single</option>
</select></TD>
</TR>
<TR>
<TD width="119">Ynglings Citat:</TD>
<TD width="129">
<INPUT TYPE="text" name="citat" SIZE="15" CLASS="Flatinput" VALUE="<%=citat%>"></TD>
</TR>
<TR>
<TD width="119">Ynglings Drikke:</TD>
<TD width="129">
<INPUT TYPE="text" name="drik" SIZE="15" CLASS="Flatinput" VALUE="<%=drik%>"></TD>
</TR>
<TR>
<TD width="119">Største Bommert:</TD>
<TD width="129">
<INPUT TYPE="text" name="bommert" SIZE="15" CLASS="Flatinput" VALUE="<%=bommert%>"></TD>
</TR>
<TR>
<TD width="119">MSN:</TD>
<TD width="129">
<INPUT TYPE="text" name="msn" SIZE="15" CLASS="Flatinput" VALUE="<%=msn%>"></TD>
</TR>
<TR>
<TD width="119"></TD>
<TD width="129"><INPUT TYPE="submit" VALUE="Skriv" CLASS="FlatButton" id=submit1 name=submit1></TD>
</TR>
</TABLE>
</FORM>
