kan ikke få den til at gemme i date basen
hey med jer...er ved at lave en registreringsside..
kan bare ikke få den til at gemme i data basen.. min database hedder " USERMAN.mdb " og den skal oprettes på den der hedder " CARS " på min database. hvordan for jeg den til det..
og så vil jeg gerne have så man kan oploade billeder på siden, og den selv smider dem på en side og gemmer dem i en mappe eller sån noget på serveren.. nogen der kan hjælpe...?
her er scriptet lige...
<%@ Language="VBScript" %>
<% Option Explicit %>
<%DIM ACT,FNAME,LNAME,GENDER,DOBDAY,DOBMONTH,DOBYEAR,DOB,EMAIL,SHOWMAIL,PIC,OCCUPATION,HOBBIES,CITY,PROVINCE,COUNTRY,UNAME,PASSWORD,REPASSWORD,SQ,SA,WEBSITE,YAHOO,MSN,AOL,ICQ,AGREE,DTREGISTER,IPREGISTER,DTUPDATE,IPUPDATE,ACTIVE,TOTALLOGINS,DTLASTLOGIN,IPLASTLOGIN,USERLEVEL,ArrayERROR(13),ISERROR,ERRORS,CHKYEAR,CHKYEAR2,RS_SHOW_COU
ACT = REQUEST.QUERYSTRING("ACT")
FNAME = REQUEST.FORM("FNAME")
LNAME = REQUEST.FORM("LNAME")
GENDER = REQUEST.FORM("GENDER")
DOBDAY = REQUEST.FORM("DOBDAY")
DOBMONTH = REQUEST.FORM("DOBMONTH")
DOB = DOBDAY
EMAIL = REQUEST.FORM("EMAIL")
SHOWMAIL = REQUEST.FORM("SHOWMAIL")
OCCUPATION = REQUEST.FORM("OCCUPATION")
HOBBIES = REQUEST.FORM("HOBBIES")
CITY = REQUEST.FORM("CITY")
PROVINCE = REQUEST.FORM("PROVINCE")
COUNTRY = REQUEST.FORM("COUNTRY")
WEBSITE = REQUEST.FORM("WEBSITE")
YAHOO = REQUEST.FORM("YAHOO")
MSN = REQUEST.FORM("MSN")
AOL = REQUEST.FORM("AOL")
ICQ = REQUEST.FORM("ICQ")
AGREE = REQUEST.FORM("AGREE")
DTREGISTER = NOW()
IPREGISTER = REQUEST.SERVERVARIABLES("REMOTE_ADDR")
DTUPDATE = "Not Updated Yet"
IPUPDATE = "Not Updated Yet"
ACTIVE = "True"
TOTALLOGINS = 0
DTLASTLOGIN = "First Time Login"
IPLASTLOGIN = "First Time Login"
USERLEVEL = 2
CHKYEAR = YEAR(NOW) - 120
CHKYEAR2 = YEAR(NOW)
%>
<!--#INCLUDE FILE="INC_CONFIG.ASP"-->
<!--#INCLUDE FILE="DBCONN.ASP"-->
<!--#INCLUDE FILE="INC_LNG1.ASP"-->
<!--#INCLUDE FILE="INC_HEAD.ASP"-->
<%IF REQUEST.COOKIES(USERMANSITENAME&"LOGIN") = "TRUE" THEN%>
<CENTER>
<TABLE WIDTH="475" HEIGHT="15" BGCOLOR="#CCBBCD" CELLSPACING="1" CELLPADDING="2">
<TR>
<TD ALIGN="CENTER" BGCOLOR="#AA89C2">
<FONT SIZE="2" CLASS="FONT"><b><%=UMP_MSG_REGERROR%> </b></FONT>
</TD>
</TR>
<TR>
<TD ALIGN="CENTER">
<font SIZE="2" CLASS="FONT"><%=UMP_MSG_ALREADYLOGGEDINAS%> " <%=REQUEST.COOKIES(USERMANSITENAME&"USER")%> "<BR><A HREF="logout.asp"><%=UMP_MSG_CLKTOLOGOUTANDBACKTOREGISTER%></a></CENTER></font>
</TD>
</TR>
</TABLE>
</CENTER>
<%ELSEIF ACT = "REGISTER" THEN%>
<%
Dim rsUserCheck
Set rsUserCheck= Server.CreateObject("ADODB.Recordset")
rsUserCheck.open "users Where USERNAME = '" & UNAME & "'", dbconn, 3, 3
IF FNAME = "" THEN
ISERROR = "TRUE"
ArrayERROR(0) = "<LI> "&UMP_MSG_manglermarke&"<BR>"
END IF
IF LNAME = "" THEN
ISERROR = "TRUE"
ArrayERROR(1) = "<LI> "&UMP_MSG_manglermodel&"<BR>"
END IF
ERRORS = JOIN(ArrayERROR)
%>
<%IF ISERROR = "TRUE" THEN%>
<%RESPONSE.REDIRECT("?ACT=REGISTRATION ERROR&ERROR="&ERRORS&"&uname="&uname&"")%>
<%ELSE%>
<%
PASSWORD = PASSENC(PASSWORD)
DIM rsUserAdd
Set rsUserAdd = Server.CreateObject("ADODB.Recordset")
rsUserAdd.open "users", dbconn, 3, 3
rsUserAdd.AddNew
rsUserAdd("FNAME") = FNAME
rsUserAdd("LNAME") = LNAME
rsUserAdd("GENDER") = GENDER
rsUserAdd("DOB") = DOB
rsUserAdd("EMAIL") = EMAIL
rsUserAdd("SHOWMAIL") = SHOWMAIL
rsUserAdd("OCCUPATION") = OCCUPATION
rsUserAdd("HOBBIES") = HOBBIES
rsUserAdd("CITY") = CITY
rsUserAdd("PROVINCE") = PROVINCE
rsUserAdd("COUNTRY") = COUNTRY
rsUserAdd("USERNAME") = UNAME
rsUserAdd("PASSWORD") = PASSWORD
IF WEBSITE <> "http://" THEN
rsUserAdd("WEBSITE") = WEBSITE
END IF
rsUserAdd("YAHOO") = YAHOO
rsUserAdd("MSN") = MSN
rsUserAdd("AOL") = AOL
rsUserAdd("ICQ") = ICQ
rsUserAdd("DTREGISTER") = DTREGISTER
rsUserAdd("IPREGISTER") = IPREGISTER
rsUserAdd("DTUPDATE") = DTUPDATE
rsUserAdd("IPUPDATE") = IPUPDATE
rsUserAdd("TOTALLOGINS") = TOTALLOGINS
rsUserAdd("DTLASTLOGIN") = DTLASTLOGIN
rsUserAdd("IPLASTLOGIN") = IPLASTLOGIN
rsUserAdd("USERLEVEL") = USERLEVEL
rsuserAdd.Update
rsUserAdd.CLOSE
SET rsUserAdd = NOTHING
%>
<%RESPONSE.REDIRECT("?ACT=REGISTRATION SUCESS&USERNAME="&UNAME&"&FNAME="&FNAME&"&LNAME="&LNAME&"")%>
<%END IF%>
<%ELSEIF ACT = "REGISTRATION SUCESS" THEN%>
<CENTER>
<TABLE WIDTH="475" HEIGHT="15" BGCOLOR="#CCBBCD" CELLSPACING="1" CELLPADDING="2" BORDER BORDERCOLOR="000080">
<TR>
<TD ALIGN="CENTER" BGCOLOR="#AA89C2">
<FONT SIZE="2" CLASS="FONT"><b><%=UMP_MSG_REGISTRATIONSUCESS%> </b></FONT>
</TD>
</TR>
<TR>
<TD>
<FONT SIZE="2" CLASS="FONT"><%=UMP_MSG_THANKU%> <%=REQUEST.QUERYSTRING("FNAME")%> <%=REQUEST.QUERYSTRING("LNAME")%> <%=UMP_REGISTREDSUCESSFULY%> <%=REQUEST.QUERYSTRING("USERNAME")%>.<BR> <CENTER> <A HREF="LOGIN.ASP"><%=UMP_MSG_CLICKTOLOGIN%></A> </CENTER></FONT>
</TD>
</TR>
</TABLE>
</CENTER>
<%ELSEIF ACT = "REGISTRATION ERROR" THEN%>
<CENTER>
<TABLE WIDTH="475" HEIGHT="15" BGCOLOR="#CCBBCD" CELLSPACING="1" CELLPADDING="2" BORDER BORDERCOLOR="000080">
<TR>
<TD ALIGN="CENTER" BGCOLOR="#AA89C2">
<FONT SIZE="2" CLASS="FONT"><b><%=UMP_MSG_REGERROR%> </b></FONT>
</TD>
</TR>
<TR>
<TD>
<font SIZE="2" CLASS="FONT"><B><%=UMP_MSG_ERRORSOCCURED%></B><BR><%=REQUEST.QUERYSTRING("ERROR")%> <BR><CENTER><A HREF="java script:history.back()"><%=UMP_MSG_GOBACK%></a></CENTER></font>
</TD>
</TR>
</TABLE>
</CENTER>
<%ELSE%>
<%SET RS_SHOW_COU = SERVER.CREATEOBJECT("ADODB.RECORDSET")
RS_SHOW_COU.OPEN "SELECT TLD,COUNTRY FROM TBL_COU ORDER BY COUNTRY", DBCONN, 3, 3%>
<CENTER>
<FORM METHOD="POST" ACTION="?ACT=REGISTER">
<TABLE WIDTH="700" BGCOLOR="#CCBBCD" CELLSPACING="1" CELLPADDING="2" BORDER BORDERCOLOR="000080">
<TR>
<TD ALIGN="CENTER" BGCOLOR="#AA89C2" COLSPAN="2">
<FONT SIZE="2" CLASS="FONT"><b><%=UMP_REGISTRATIONFORM%> </b></FONT>
</TD>
</TR>
<TR>
<TD COLSPAN="2">
<FONT SIZE="2" CLASS="FONT"><CENTER><%=UMP_ud_fyld%> </CENTER></FONT>
</TD>
</TR>
<TR>
<TD WIDTH="50%" VALIGN="TOP">
<TABLE WIDTH="100%">
<TR>
<TD ALIGN="CENTER" BGCOLOR="#AA89C2" COLSPAN="2">
<FONT SIZE="2" CLASS="FONT"><b><%=UMP_biloplysninger%></b></FONT>
</TD>
</TR>
<TR>
<TD WIDTH="50%">
<FONT SIZE="2" CLASS="FONT"> <%=UMP_marke %>* </FONT>
</TD>
<TD WIDTH="50%"><INPUT TYPE="TEXT" NAME="marke" MAXLENGTH="20" CLASS="INPUT" SIZE="50">
</TD>
</TR>
<TR>
<TD WIDTH="50%">
<FONT SIZE="2" CLASS="FONT"><%=UMP_model%>* </FONT>
</TD>
<TD WIDTH="50%"><INPUT TYPE="TEXT" NAME="model" MAXLENGTH="20" CLASS="INPUT" SIZE="50">
</TD>
</TR>
<TR>
<TD> <FONT SIZE="2" CLASS="FONT"><%=UMP_aargang%> * </FONT> </TD>
<TD>
<select name="DOBDAY" class="INPUT">
<option value="70">70
<option value="71">71
<option value="72">72
<option value="73">73
<option value="74">74
<option value="75">75
<option value="76">76
<option value="77">77
<option value="78">78
<option value="79">79
<option value="80">80
<option value="81">81
<option value="82">82
<option value="83">83
<option value="84">84
<option value="85">85
<option value="86">86
<option value="87">87
<option value="88">88
<option value="89">89
<option value="90">90
<option value="91">91
<option value="92">92
<option value="93">93
<option value="94">94
<option value="95">95
<option value="96">96
<option value="97">97
<option value="98">98
<option value="99">99
<option value="00">00
<option value="01">01
<option value="02">02
<option value="03">03
<option value="04">04
<option value="05">05
<option value="06">06
</select>
</TD>
</TR>
<TR>
<TD WIDTH="50%">
<FONT SIZE="2" CLASS="FONT"> <%=UMP_motor%>* </FONT>
</TD>
<TD WIDTH="50%"><textarea name="motor" cols="50" rows="5" class="INPUT"></textarea>
</TD>
</TR>
<TR>
<TD><FONT SIZE="2" CLASS="FONT"><%=UMP_HK%> * </FONT></TD>
<TD><textarea name="HK" cols="50" rows="5" class="INPUT"></textarea></TD>
</TR>
<TR>
<TD><FONT SIZE="2" CLASS="FONT"><%=UMP_falge%> * </FONT></TD>
<TD><textarea name="falge" cols="50" rows="5" class="INPUT"></textarea></TD>
</TR>
<TR>
<TD><FONT SIZE="2" CLASS="FONT"><%=UMP_dak%> * </FONT></TD>
<TD><textarea name="dak" cols="50" rows="5" class="INPUT"></textarea></TD>
</TR>
<TR>
<TD><FONT SIZE="2" CLASS="FONT"><%=UMP_undervogn%> * </FONT></TD>
<TD><textarea name="undervogn" cols="50" rows="5" class="INPUT"></textarea></TD>
</TR>
</TABLE>
<TD WIDTH="50%" VALIGN="TOP">
<TABLE WIDTH="100%">
<TR>
<TD ALIGN="CENTER" BGCOLOR="#AA89C2" COLSPAN="2">
<FONT SIZE="2" CLASS="FONT"><b> </b></FONT>
</TD>
</TR>
<TR>
<TD WIDTH="50%">
<FONT SIZE="2" CLASS="FONT"><%=UMP_anlag%> * </FONT>
</TD>
<TD WIDTH="50%">
<textarea name="anlag" cols="50" rows="5" class="INPUT"></textarea>
</TD>
</TR>
<TR>
<TD WIDTH="50%">
<FONT SIZE="2" CLASS="FONT"><%=UMP_styling%> * </FONT>
</TD>
<TD WIDTH="50%">
<textarea name="styling" cols="50" rows="5" class="INPUT"></textarea>
</TD>
</TR>
<TR>
<TD WIDTH="50%">
<FONT SIZE="2" CLASS="FONT"><%=UMP_interior%> * </FONT>
</TD>
<TD WIDTH="50%">
<textarea name="interior" cols="50" rows="5" class="INPUT"></textarea>
</TD>
</TR>
<TR>
<TD> <FONT SIZE="2" CLASS="FONT"><%=UMP_ekstra%> * </FONT></TD>
<TD>
<textarea name="ekstra" cols="50" rows="5" class="INPUT"></textarea>
</TD>
</TR>
<TR>
<TD> <FONT SIZE="2" CLASS="FONT"><%=UMP_bemarkninger%> * </FONT> </TD>
<TD>
<textarea name="bemarkninger" cols="50" rows="5" class="INPUT"></textarea>
</TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD COLSPAN="2"> <CENTER>
<table width="300" border="0">
<tr>
<td><div align="left">
<input type="CHECKBOX" name="AGREE2" class="INPUT">
Bilen er <span style="color: #FF0000">MIN </span></div></td>
</tr>
<tr>
<td><div align="left">
<input type="CHECKBOX" name="AGREE3" class="INPUT">
Alle billederne <span style="color: #FF0000">SKAL</span> være af bilen. </div></td>
</tr>
<tr>
<td> <div align="left">
<input type="CHECKBOX" name="AGREE" class="INPUT">
Bilen må <span style="color: #FF0000">IKKE</span> være soglt ved oprettelsen </div></td>
</tr>
</table>
</CENTER>
</TD>
</TR>
<TR>
<TD ALIGN="CENTER" BGCOLOR="#AA89C2" COLSPAN="2">
<INPUT TYPE="SUBMIT" VALUE="<%=UMP_SUBMITFORM%>" CLASS="INPUT"> <INPUT TYPE="RESET" VALUE="<%=UMP_RESETFORM%>" CLASS="INPUT">
</TD>
</TR>
</TABLE>
</FORM>
</CENTER>
<%END IF%>
<!--#INCLUDE FILE="INC_FOOTER.ASP"-->
<% 'A joke
FUNCTION AGECOUNT()
DIM REGAGE
REGAGE = YEAR(NOW) - DOBYEAR
IF INSTR(REGAGE, "-") <> 0 THEN
AGECOUNT = "(<i> There are " & ABS(REGAGE) & " years remain in your birth.Please comeback here when you born </i> ) <br>"
ELSE
AGECOUNT = " (<i> Are you " & REGAGE & " years old?.Oh dear its impossible.Please enter your correct age</i> )<BR>"
END IF
END FUNCTION
%>
<%
Function PASSENC(STRING)
Dim PASS, NEWPASS, ENCPASS
For NEWPASS = 1 To LEN( STRING )
PASS = MID( STRING, NEWPASS )
ENCPASS = ENCPASS & CHR( Asc( PASS ) + 100 )
Next
PASSENC = ENCPASS
End Function
%>
<%@ Language="VBScript" %>
<% Option Explicit %>
<%DIM ACT,FNAME,LNAME,GENDER,DOBDAY,DOBMONTH,DOBYEAR,DOB,EMAIL,SHOWMAIL,PIC,OCCUPATION,HOBBIES,CITY,PROVINCE,COUNTRY,UNAME,PASSWORD,REPASSWORD,SQ,SA,WEBSITE,YAHOO,MSN,AOL,ICQ,AGREE,DTREGISTER,IPREGISTER,DTUPDATE,IPUPDATE,ACTIVE,TOTALLOGINS,DTLASTLOGIN,IPLASTLOGIN,USERLEVEL,ArrayERROR(13),ISERROR,ERRORS,CHKYEAR,CHKYEAR2,RS_SHOW_COU
ACT = REQUEST.QUERYSTRING("ACT")
FNAME = REQUEST.FORM("FNAME")
LNAME = REQUEST.FORM("LNAME")
GENDER = REQUEST.FORM("GENDER")
DOBDAY = REQUEST.FORM("DOBDAY")
DOBMONTH = REQUEST.FORM("DOBMONTH")
DOB = DOBDAY
EMAIL = REQUEST.FORM("EMAIL")
SHOWMAIL = REQUEST.FORM("SHOWMAIL")
OCCUPATION = REQUEST.FORM("OCCUPATION")
HOBBIES = REQUEST.FORM("HOBBIES")
CITY = REQUEST.FORM("CITY")
PROVINCE = REQUEST.FORM("PROVINCE")
COUNTRY = REQUEST.FORM("COUNTRY")
WEBSITE = REQUEST.FORM("WEBSITE")
YAHOO = REQUEST.FORM("YAHOO")
MSN = REQUEST.FORM("MSN")
AOL = REQUEST.FORM("AOL")
ICQ = REQUEST.FORM("ICQ")
AGREE = REQUEST.FORM("AGREE")
DTREGISTER = NOW()
IPREGISTER = REQUEST.SERVERVARIABLES("REMOTE_ADDR")
DTUPDATE = "Not Updated Yet"
IPUPDATE = "Not Updated Yet"
ACTIVE = "True"
TOTALLOGINS = 0
DTLASTLOGIN = "First Time Login"
IPLASTLOGIN = "First Time Login"
USERLEVEL = 2
CHKYEAR = YEAR(NOW) - 120
CHKYEAR2 = YEAR(NOW)
%>
<!--#INCLUDE FILE="INC_CONFIG.ASP"-->
<!--#INCLUDE FILE="DBCONN.ASP"-->
<!--#INCLUDE FILE="INC_LNG1.ASP"-->
<!--#INCLUDE FILE="INC_HEAD.ASP"-->
<%IF REQUEST.COOKIES(USERMANSITENAME&"LOGIN") = "TRUE" THEN%>
<CENTER>
<TABLE WIDTH="475" HEIGHT="15" BGCOLOR="#CCBBCD" CELLSPACING="1" CELLPADDING="2">
<TR>
<TD ALIGN="CENTER" BGCOLOR="#AA89C2">
<FONT SIZE="2" CLASS="FONT"><b><%=UMP_MSG_REGERROR%> </b></FONT>
</TD>
</TR>
<TR>
<TD ALIGN="CENTER">
<font SIZE="2" CLASS="FONT"><%=UMP_MSG_ALREADYLOGGEDINAS%> " <%=REQUEST.COOKIES(USERMANSITENAME&"USER")%> "<BR><A HREF="logout.asp"><%=UMP_MSG_CLKTOLOGOUTANDBACKTOREGISTER%></a></CENTER></font>
</TD>
</TR>
</TABLE>
</CENTER>
<%ELSEIF ACT = "REGISTER" THEN%>
<%
Dim rsUserCheck
Set rsUserCheck= Server.CreateObject("ADODB.Recordset")
rsUserCheck.open "users Where USERNAME = '" & UNAME & "'", dbconn, 3, 3
IF FNAME = "" THEN
ISERROR = "TRUE"
ArrayERROR(0) = "<LI> "&UMP_MSG_manglermarke&"<BR>"
END IF
IF LNAME = "" THEN
ISERROR = "TRUE"
ArrayERROR(1) = "<LI> "&UMP_MSG_manglermodel&"<BR>"
END IF
ERRORS = JOIN(ArrayERROR)
%>
<%IF ISERROR = "TRUE" THEN%>
<%RESPONSE.REDIRECT("?ACT=REGISTRATION ERROR&ERROR="&ERRORS&"&uname="&uname&"")%>
<%ELSE%>
<%
PASSWORD = PASSENC(PASSWORD)
DIM rsUserAdd
Set rsUserAdd = Server.CreateObject("ADODB.Recordset")
rsUserAdd.open "users", dbconn, 3, 3
rsUserAdd.AddNew
rsUserAdd("FNAME") = FNAME
rsUserAdd("LNAME") = LNAME
rsUserAdd("GENDER") = GENDER
rsUserAdd("DOB") = DOB
rsUserAdd("EMAIL") = EMAIL
rsUserAdd("SHOWMAIL") = SHOWMAIL
rsUserAdd("OCCUPATION") = OCCUPATION
rsUserAdd("HOBBIES") = HOBBIES
rsUserAdd("CITY") = CITY
rsUserAdd("PROVINCE") = PROVINCE
rsUserAdd("COUNTRY") = COUNTRY
rsUserAdd("USERNAME") = UNAME
rsUserAdd("PASSWORD") = PASSWORD
IF WEBSITE <> "http://" THEN
rsUserAdd("WEBSITE") = WEBSITE
END IF
rsUserAdd("YAHOO") = YAHOO
rsUserAdd("MSN") = MSN
rsUserAdd("AOL") = AOL
rsUserAdd("ICQ") = ICQ
rsUserAdd("DTREGISTER") = DTREGISTER
rsUserAdd("IPREGISTER") = IPREGISTER
rsUserAdd("DTUPDATE") = DTUPDATE
rsUserAdd("IPUPDATE") = IPUPDATE
rsUserAdd("TOTALLOGINS") = TOTALLOGINS
rsUserAdd("DTLASTLOGIN") = DTLASTLOGIN
rsUserAdd("IPLASTLOGIN") = IPLASTLOGIN
rsUserAdd("USERLEVEL") = USERLEVEL
rsuserAdd.Update
rsUserAdd.CLOSE
SET rsUserAdd = NOTHING
%>
<%RESPONSE.REDIRECT("?ACT=REGISTRATION SUCESS&USERNAME="&UNAME&"&FNAME="&FNAME&"&LNAME="&LNAME&"")%>
<%END IF%>
<%ELSEIF ACT = "REGISTRATION SUCESS" THEN%>
<CENTER>
<TABLE WIDTH="475" HEIGHT="15" BGCOLOR="#CCBBCD" CELLSPACING="1" CELLPADDING="2" BORDER BORDERCOLOR="000080">
<TR>
<TD ALIGN="CENTER" BGCOLOR="#AA89C2">
<FONT SIZE="2" CLASS="FONT"><b><%=UMP_MSG_REGISTRATIONSUCESS%> </b></FONT>
</TD>
</TR>
<TR>
<TD>
<FONT SIZE="2" CLASS="FONT"><%=UMP_MSG_THANKU%> <%=REQUEST.QUERYSTRING("FNAME")%> <%=REQUEST.QUERYSTRING("LNAME")%> <%=UMP_REGISTREDSUCESSFULY%> <%=REQUEST.QUERYSTRING("USERNAME")%>.<BR> <CENTER> <A HREF="LOGIN.ASP"><%=UMP_MSG_CLICKTOLOGIN%></A> </CENTER></FONT>
</TD>
</TR>
</TABLE>
</CENTER>
<%ELSEIF ACT = "REGISTRATION ERROR" THEN%>
<CENTER>
<TABLE WIDTH="475" HEIGHT="15" BGCOLOR="#CCBBCD" CELLSPACING="1" CELLPADDING="2" BORDER BORDERCOLOR="000080">
<TR>
<TD ALIGN="CENTER" BGCOLOR="#AA89C2">
<FONT SIZE="2" CLASS="FONT"><b><%=UMP_MSG_REGERROR%> </b></FONT>
</TD>
</TR>
<TR>
<TD>
<font SIZE="2" CLASS="FONT"><B><%=UMP_MSG_ERRORSOCCURED%></B><BR><%=REQUEST.QUERYSTRING("ERROR")%> <BR><CENTER><A HREF="java script:history.back()"><%=UMP_MSG_GOBACK%></a></CENTER></font>
</TD>
</TR>
</TABLE>
</CENTER>
<%ELSE%>
<%SET RS_SHOW_COU = SERVER.CREATEOBJECT("ADODB.RECORDSET")
RS_SHOW_COU.OPEN "SELECT TLD,COUNTRY FROM TBL_COU ORDER BY COUNTRY", DBCONN, 3, 3%>
<CENTER>
<FORM METHOD="POST" ACTION="?ACT=REGISTER">
<TABLE WIDTH="700" BGCOLOR="#CCBBCD" CELLSPACING="1" CELLPADDING="2" BORDER BORDERCOLOR="000080">
<TR>
<TD ALIGN="CENTER" BGCOLOR="#AA89C2" COLSPAN="2">
<FONT SIZE="2" CLASS="FONT"><b><%=UMP_REGISTRATIONFORM%> </b></FONT>
</TD>
</TR>
<TR>
<TD COLSPAN="2">
<FONT SIZE="2" CLASS="FONT"><CENTER><%=UMP_ud_fyld%> </CENTER></FONT>
</TD>
</TR>
<TR>
<TD WIDTH="50%" VALIGN="TOP">
<TABLE WIDTH="100%">
<TR>
<TD ALIGN="CENTER" BGCOLOR="#AA89C2" COLSPAN="2">
<FONT SIZE="2" CLASS="FONT"><b><%=UMP_biloplysninger%></b></FONT>
</TD>
</TR>
<TR>
<TD WIDTH="50%">
<FONT SIZE="2" CLASS="FONT"> <%=UMP_marke %>* </FONT>
</TD>
<TD WIDTH="50%"><INPUT TYPE="TEXT" NAME="marke" MAXLENGTH="20" CLASS="INPUT" SIZE="50">
</TD>
</TR>
<TR>
<TD WIDTH="50%">
<FONT SIZE="2" CLASS="FONT"><%=UMP_model%>* </FONT>
</TD>
<TD WIDTH="50%"><INPUT TYPE="TEXT" NAME="model" MAXLENGTH="20" CLASS="INPUT" SIZE="50">
</TD>
</TR>
<TR>
<TD> <FONT SIZE="2" CLASS="FONT"><%=UMP_aargang%> * </FONT> </TD>
<TD>
<select name="DOBDAY" class="INPUT">
<option value="70">70
<option value="71">71
<option value="72">72
<option value="73">73
<option value="74">74
<option value="75">75
<option value="76">76
<option value="77">77
<option value="78">78
<option value="79">79
<option value="80">80
<option value="81">81
<option value="82">82
<option value="83">83
<option value="84">84
<option value="85">85
<option value="86">86
<option value="87">87
<option value="88">88
<option value="89">89
<option value="90">90
<option value="91">91
<option value="92">92
<option value="93">93
<option value="94">94
<option value="95">95
<option value="96">96
<option value="97">97
<option value="98">98
<option value="99">99
<option value="00">00
<option value="01">01
<option value="02">02
<option value="03">03
<option value="04">04
<option value="05">05
<option value="06">06
</select>
</TD>
</TR>
<TR>
<TD WIDTH="50%">
<FONT SIZE="2" CLASS="FONT"> <%=UMP_motor%>* </FONT>
</TD>
<TD WIDTH="50%"><textarea name="motor" cols="50" rows="5" class="INPUT"></textarea>
</TD>
</TR>
<TR>
<TD><FONT SIZE="2" CLASS="FONT"><%=UMP_HK%> * </FONT></TD>
<TD><textarea name="HK" cols="50" rows="5" class="INPUT"></textarea></TD>
</TR>
<TR>
<TD><FONT SIZE="2" CLASS="FONT"><%=UMP_falge%> * </FONT></TD>
<TD><textarea name="falge" cols="50" rows="5" class="INPUT"></textarea></TD>
</TR>
<TR>
<TD><FONT SIZE="2" CLASS="FONT"><%=UMP_dak%> * </FONT></TD>
<TD><textarea name="dak" cols="50" rows="5" class="INPUT"></textarea></TD>
</TR>
<TR>
<TD><FONT SIZE="2" CLASS="FONT"><%=UMP_undervogn%> * </FONT></TD>
<TD><textarea name="undervogn" cols="50" rows="5" class="INPUT"></textarea></TD>
</TR>
</TABLE>
<TD WIDTH="50%" VALIGN="TOP">
<TABLE WIDTH="100%">
<TR>
<TD ALIGN="CENTER" BGCOLOR="#AA89C2" COLSPAN="2">
<FONT SIZE="2" CLASS="FONT"><b> </b></FONT>
</TD>
</TR>
<TR>
<TD WIDTH="50%">
<FONT SIZE="2" CLASS="FONT"><%=UMP_anlag%> * </FONT>
</TD>
<TD WIDTH="50%">
<textarea name="anlag" cols="50" rows="5" class="INPUT"></textarea>
</TD>
</TR>
<TR>
<TD WIDTH="50%">
<FONT SIZE="2" CLASS="FONT"><%=UMP_styling%> * </FONT>
</TD>
<TD WIDTH="50%">
<textarea name="styling" cols="50" rows="5" class="INPUT"></textarea>
</TD>
</TR>
<TR>
<TD WIDTH="50%">
<FONT SIZE="2" CLASS="FONT"><%=UMP_interior%> * </FONT>
</TD>
<TD WIDTH="50%">
<textarea name="interior" cols="50" rows="5" class="INPUT"></textarea>
</TD>
</TR>
<TR>
<TD> <FONT SIZE="2" CLASS="FONT"><%=UMP_ekstra%> * </FONT></TD>
<TD>
<textarea name="ekstra" cols="50" rows="5" class="INPUT"></textarea>
</TD>
</TR>
<TR>
<TD> <FONT SIZE="2" CLASS="FONT"><%=UMP_bemarkninger%> * </FONT> </TD>
<TD>
<textarea name="bemarkninger" cols="50" rows="5" class="INPUT"></textarea>
</TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD COLSPAN="2"> <CENTER>
<table width="300" border="0">
<tr>
<td><div align="left">
<input type="CHECKBOX" name="AGREE2" class="INPUT">
Bilen er <span style="color: #FF0000">MIN </span></div></td>
</tr>
<tr>
<td><div align="left">
<input type="CHECKBOX" name="AGREE3" class="INPUT">
Alle billederne <span style="color: #FF0000">SKAL</span> være af bilen. </div></td>
</tr>
<tr>
<td> <div align="left">
<input type="CHECKBOX" name="AGREE" class="INPUT">
Bilen må <span style="color: #FF0000">IKKE</span> være soglt ved oprettelsen </div></td>
</tr>
</table>
</CENTER>
</TD>
</TR>
<TR>
<TD ALIGN="CENTER" BGCOLOR="#AA89C2" COLSPAN="2">
<INPUT TYPE="SUBMIT" VALUE="<%=UMP_SUBMITFORM%>" CLASS="INPUT"> <INPUT TYPE="RESET" VALUE="<%=UMP_RESETFORM%>" CLASS="INPUT">
</TD>
</TR>
</TABLE>
</FORM>
</CENTER>
<%END IF%>
<!--#INCLUDE FILE="INC_FOOTER.ASP"-->
<% 'A joke
FUNCTION AGECOUNT()
DIM REGAGE
REGAGE = YEAR(NOW) - DOBYEAR
IF INSTR(REGAGE, "-") <> 0 THEN
AGECOUNT = "(<i> There are " & ABS(REGAGE) & " years remain in your birth.Please comeback here when you born </i> ) <br>"
ELSE
AGECOUNT = " (<i> Are you " & REGAGE & " years old?.Oh dear its impossible.Please enter your correct age</i> )<BR>"
END IF
END FUNCTION
%>
<%
Function PASSENC(STRING)
Dim PASS, NEWPASS, ENCPASS
For NEWPASS = 1 To LEN( STRING )
PASS = MID( STRING, NEWPASS )
ENCPASS = ENCPASS & CHR( Asc( PASS ) + 100 )
Next
PASSENC = ENCPASS
End Function
%>
