damid upload form
<%response.buffer = true
set connect = server.createobject("ADODB.Connection")
Connect.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../../databaser/hotnot.mdb")
Session.LCID = 1030
%>
<form name="form1" ENCTYPE="multipart/form-data" method="post" action="create-user.asp?mode=createuser" onsubmit="return Form1_Validator(this)" >
<table width="300" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td background="../images/300px_top.gif" height="30" align="center" class="black10bold">Create
user profile</td>
</tr>
<tr>
<td background="../images/300px_midten.gif" align="center" valign="top">
<table border="0" cellspacing="0" cellpadding="0" align="center" width="270">
<tr>
<td class="black10bold">Username</td>
<td>
<input type="text" name="login" class="textbox" size="21">
</td>
</tr>
<tr>
<td colspan="2" class="black10bold"></td>
</tr>
<tr>
<td class="black10bold">Real name</td>
<td>
<input type="text" name="name" size="21" class="textbox">
</td>
</tr>
<tr>
<td colspan="2" class="black10bold"></td>
</tr>
<tr>
<td class="black10bold">Age</td>
<td>
<select name="alder" class="textbox">
<option value=0 selected>--</option>
<option value=18>15</option>
</select>
</td>
</tr>
<tr>
<td colspan="2" class="black10bold"></td>
</tr>
<tr>
<td class="black10bold">Sex</td>
<td class="black10bold">Male
<input type="radio" name="sex" value="1">
Female
<input type="radio" name="sex" value="2">
</td>
</tr>
<tr>
<td colspan="2" class="black10bold"></td>
</tr>
<tr>
<td class="black10bold">E mail</td>
<td>
<input type="text" name="email" size="21" class="textbox">
</td>
</tr>
<tr>
<td colspan="2" class="black10bold"></td>
</tr>
<tr>
<td class="black10bold">Contry</td>
<td>
<select name="land" class="textbox">
<option selected value="0">Select your country</option>
<option value="Afghanistan">Afghanistan</option>
</select>
</td>
</tr>
<tr>
<td colspan="2" class="black10bold"></td>
</tr>
<tr>
<td class="black10bold">Password</td>
<td>
<input type="password" name="password" size="21" class="textbox">
</td>
</tr>
<tr>
<td colspan="2" class="black10bold"></td>
</tr>
<tr>
<td class="black10bold">Retype password</td>
<td>
<input type="password" name="repassword" size="21" class="textbox">
</td>
</tr>
<tr>
<td colspan="2" class="black10bold"></td>
</tr>
<tr>
<td valign="top"><span class="black10bold">About me<br>
<br>
</span><span class="black10">Click smilie to add it.<br>
</span>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" height="5"></td>
</tr>
<tr>
<td align="left"> <a
onClick="insertAtCaret(document.form1.message, ' :) '); document.form1.message.focus();"
href="java script:void(0)" ;> <img alt=Smile src="../images/smile/smile.gif" border=0></a>
<a
onClick="insertAtCaret(document.form1.message, ' :( '); document.form1.message.focus();"
href="java script:void(0)" ;> <img alt=Frown src="../images/smile/frown.gif" border=0></a>
<a
onClick="insertAtCaret(document.form1.message, ' :o '); document.form1.message.focus();"
href="java script:void(0)" ;> <img alt=Embarrassed src="../images/smile/redface.gif" border=0></a>
<br>
<a
onClick="insertAtCaret(document.form1.message, ' :D '); document.form1.message.focus();"
href="java script:void(0)" ;> <img alt="Big Grin" src="../images/smile/biggrin.gif" border=0></a>
<a
onClick="insertAtCaret(document.form1.message, ' ;) '); document.form1.message.focus();"
href="java script:void(0)" ;> <img alt=Wink src="../images/smile/wink.gif" border=0></a>
<a
onClick="insertAtCaret(document.form1.message, ' :p '); document.form1.message.focus();"
href="java script:void(0)" ;> <img alt=Razz src="../images/smile/tongue.gif" border=0></a>
</td>
</tr>
</table>
<span class="black10"> </span></td>
<td>
<textarea name="message" cols="21" class="textbox" rows="10" onFocus="antal()" onKeyDown="antal()" onKeyUp="antal()" onBlur="antal()"></textarea>
<span class="black10bold"> <br>
<input type="text" name="tilbage" value="200" size=3 class="textbox">
</span><span class="black10">characters back</span></td>
</tr>
<tr>
<td class="black10bold" valign="top"> </td>
<td></td>
</tr>
<tr align="right">
<td colspan="2"></td>
</tr>
<tr align="left">
<td colspan="2">
<input class=textbox type=FILE size=36 name="Billed">
<input type="hidden" name="dato" value="<%=now%>">
<input type="submit" name="Submit" value="Create profile" class="textbox">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td background="../images/300px_Bund.gif" height="33" align="center" class="black10bold"></td>
</tr>
</table>
<p> </p>
</form>
<%
select case request("mode")
'Add the user to the database
case "createuser"
'Check if user is all ready in the database If he is tell him else add him to the database.
Set rs = Connect.Execute("SELECT email FROM hotnot WHERE email = '" & request.form("email") & "'")
if rs.eof then
Set Upload = Server.CreateObject("Persits.Upload.1")
' Limit file size to 90000 bytes, throw an exception if file is larger
Upload.SetMaxSize 90000, True
' Intercept all exceptions to display user-friendly error
On Error Resume Next
Upload.Save "d:/kunder/wild-one/Pictures/Copyright"
' ++++++++++++++++++++++++++++++++++ HENTER STIEN+FILNAVN ++++++++++++++++++++++++++++++++
For Each File in Upload.Files
Filstien = File.Path
Next
For Each Item in Upload.Form
ting = item.value
Next
' ++++++++++++++++++++++++++++++++++ HENTER STIEN+FILNAVN SLUT ++++++++++++++++++++++++++++++++
' ++++++++++++++++++++++++++++++++++ FJERN STIEN ++++++++++++++++++++++++++++++++
Function RemoveHTML(strContent)
Do
pos = 1
' +++++++++++++++++++++++ HER SKRIVES "DREVBOGSTAV :"
tmpBegin = InStr(pos,strContent,"d:")
' +++++++++++++++++++++++ HER SKRIVES "DREVBOGSTAV :" SLUT
If tmpBegin > 0 Then
pos = tmpBegin
' +++++++++++++++++++++++ HER SKRIVES "SIDSTE DIR" OG ANTALLET AF TEGN SKRIVES I NÆSTE LINIE
tmpEnd = InStr(pos,strContent,"/Copyright")
tmpEnd = tmpEnd + 10
' +++++++++++++++++++++++ HER SKRIVES "SIDSTE DIR" SLUT
If tmpEnd > 0 Then
strContent = Left(strContent,tmpBegin-1) & "" & Right(strContent,Len(strContent)-tmpEnd)
Else
strContent = Left(strContent,tmpBegin-1)
Exit Do
End If
Else
Exit Do
End If
Loop
RemoveHTML = strContent
End Function
tmpContent = Trim(Filstien)
Filstienkort = Replace(RemoveHTML(tmpContent), vbCrLf, "")
filstienkort = "'" & filstienkort
' ++++++++++++++++++++++++++++++++++ FJERN STIEN SLUT ++++++++++++++++++++++++++++++++
' ++++++++++++++++++++++++++++++++++ GEMMER SIDSTE STI+FILNAVN ++++++++++++++++++++++++++++++++
filstienkort=replace(filstienkort,"'","")
Teksten = Replace(request.form("message"), "'", "’")
SQL ="INSERT INTO hotnot (login,navn,alder,kon,email,password,active,land,statment,dato,stopit,image) VALUES('" & request.form("login") & "','" & request.form("name") & "','" & request.form("alder") & "','" & request.form("sex") & "','" & request.form("email") & "','" & request.form("password") & "','no','" & request.form("land") & "','" & Teksten & "',#" & request.form("dato") & "#,'no','"& filstienkort &"')"
'Connect.Execute(SQL)
response.write (SQL)
Scriptet kører ok men der bliver ikke uploadet og det ser ud som om den godt kan se der er nogle form felter men den kan ikke se hvad der stå i dem.
sådan ser SQL ud når den skrives ud:
INSERT INTO hotnot (login,navn,alder,kon,email,password,active,land,statment,dato,stopit,image) VALUES('','','','','','','no','','',##,'no','')
