mySmartUpload + Opdatere DB
Hej..Jeg har sådan at man skal rette på sin bruger med billede.. Men den retter ikke den får bare felterne til at stå tomme..
Min form:
<form method=post name=FORMNAVN action=retbruger.asp ENCTYPE="multipart/form-data">
<table width="25%" border="0" align="left">
<tr>
<td width="77%" height="43">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">BrugerNavn<br>
<input type="text" name="username" size="20" font face="Verdana, Arial, Helvetica, sans-serif"; style="border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; " value="<%=rs("username")%>" class="mitfelt" disabled>
</font></div>
</td>
<td width="21%" height="43">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">Password<br>
<input type="password" name="password" size="20" font face="Verdana, Arial, Helvetica, sans-serif"; style="border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; " value="<%=rs("password")%>" class="mitfelt">
</font></div>
</td>
</tr>
<tr>
<td width="77%">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">Navn<br>
<input type="text" name="navn" size="20" font face="Verdana, Arial, Helvetica, sans-serif"; style="border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; " value="<%=rs("navn")%>" class="mitfelt">
</font></div>
</td>
<td width="21%">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">Email<br>
<input type="text" name="email" size="20" font face="Verdana, Arial, Helvetica, sans-serif"; style="border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; " value="<%=rs("email")%>" class="mitfelt">
</font></div>
</td>
</tr>
<tr>
<td width="77%">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">
Beskrivelse af dig selv <font color="#FF0000">*</font>
<textarea name="beskrivelse" cols="20" font="font" face="Verdana, Arial, Helvetica, sans-serif" ;=";" style="border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; " rows="7" class="mitfelt"><%=rs("beskrivelse")%></textarea>
</font></div>
</td>
<td width="21%">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">
</font></div>
</td>
</tr>
<tr>
<td width="77%">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">Alder<br>
<input type="text" name="alder" size="20" font face="Verdana, Arial, Helvetica, sans-serif"; style="border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; " value="<%=rs("alder")%>" class="mitfelt">
</font></div>
</td>
<td width="21%">
<p align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">Gamer
Nick<br>
</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">
<input type="text" name="gamernick" size="20" font face="Verdana, Arial, Helvetica, sans-serif"; style="border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; " value="<%=rs("gamernick")%>" class="mitfelt">
</font></p>
</td>
</tr>
<tr>
<td width="77%" height="2">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">Processer/CPU<br>
<input type="text" name="cpu" size="20" font face="Verdana, Arial, Helvetica, sans-serif"; style="border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; " value="<%=rs("cpu")%>" class="mitfelt">
</font></div>
</td>
<td width="21%" height="2">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">Skærm<br>
<input type="text" name="moniter" size="20" font face="Verdana, Arial, Helvetica, sans-serif"; style="border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; " value="<%=rs("moniter")%>" class="mitfelt">
</font></div>
</td>
</tr>
<tr>
<td width="77%" height="2">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">Mus<br>
<input type="text" name="mus" size="20" font face="Verdana, Arial, Helvetica, sans-serif"; style="border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; " value="<%=rs("mus")%>" class="mitfelt">
</font></div>
</td>
<td width="21%" height="2">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">MuseMåtte<br>
<input type="text" name="musematte" size="20" font face="Verdana, Arial, Helvetica, sans-serif"; style="border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; " value="<%=rs("musematte")%>" class="mitfelt">
</font></div>
</td>
</tr>
<tr>
<td width="77%" height="32">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">
By <br>
<input type="text" name="by" size="20" font face="Verdana, Arial, Helvetica, sans-serif"; style="border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; " value="<%=rs("by")%>" class="mitfelt">
</font></div>
</td>
<td width="21%" height="32">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">
Hjemmeside
<input type="text" name="hjemmeside" size="20" font face="Verdana, Arial, Helvetica, sans-serif"; style="border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; " value="<%=rs("hjemmeside")%>" class="mitfelt">
</font></div>
</td>
</tr>
<tr>
<td width="77%" height="32"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">Opløsning
i CS<br>
<input type="text" name="oplosning" size="20" font face="Verdana, Arial, Helvetica, sans-serif"; style="border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; " value="<%=rs("oplosning")%>" class="mitfelt">
</font></td>
<td width="21%" height="32"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">Grafikkort<br>
<input type="text" name="grafikkort" size="20" font face="Verdana, Arial, Helvetica, sans-serif"; style="border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; " value="<%=rs("grafikkort")%>" class="mitfelt">
</font></td>
</tr>
<tr>
<td width="77%" height="32"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">Sensitivity
i CS<br>
<input type="text" name="sensitivity" size="20" font face="Verdana, Arial, Helvetica, sans-serif"; style="border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; " value="<%=rs("sensitivity")%>" class="mitfelt">
</font></td>
<td width="21%" height="32"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">S</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">ignatur
Linje
<input type="text" name="signatur" size="20" font face="Verdana, Arial, Helvetica, sans-serif"; style="border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; " value="<%=rs("signatur")%>" class="mitfelt">
</font></td>
</tr>
<tr>
<td width="77%" height="32"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">
<input type="submit" value="Ret" name="knap" class="mitfelt">
<input type="reset" value="Nulstil" name="B" class="mitfelt">
</font></td>
<td width="21%" height="32"> </td>
</tr>
</table>
<table width="92%" border="0" align="left">
<tr>
<td width="77%" height="193">
<table width="100%" border="0">
<tr>
<td height="20" width="420"><font color="#0066CC" face="Verdana, Arial, Helvetica, sans-serif" size="1">Billlede<font color="#FF0000">*</font></font></td>
</tr>
<tr>
<td width="420">
<input type="FILE" name="billede12" size="40"; style="border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; "class="mitfelt">
</td>
</tr>
<tr>
<td id="icnHolder" style="FONT-SIZE: 7pt; FONT-FAMILY: verdana" width="420" height="2">
<%
If IsNull(rs("billede")) Then
response.write "<font face=Verdana, Arial, Helvetica, sans-serif size=1 color=#000000>Du har ikke et billede til din Profil, upload et ovenover!!"
else %>
<img src="userimages/<%=rs("billede")%>"border-bottom: 1 dotted #000000; width="169" height="139" border=1 align="left">
<% end if %>
</td>
</tr>
</table>
<table width="80%" border="0">
<tr>
<td height="20" width="420"><font color="#0066CC" face="Verdana, Arial, Helvetica, sans-serif" size="1">Vælg
Ikon<font color="#FF0000">*</font></font></td>
</tr>
<tr>
<td width="420"><font face="tahoma" size="1"><img src="Icons/baily.jpg" onClick="setIcn(this)" width="50" height="50" border="1" class="mitfelt">
<img src="Icons/bluepowerpuff.jpg" onClick="setIcn(this)" width="50" height="50" border="1" class="mitfelt">
<img src="Icons/cs1.jpg" onClick="setIcn(this)" width="50" height="50" border="1" class="mitfelt">
<img src="Icons/cs2.jpg" onClick="setIcn(this)" width="50" height="50" border="1" class="mitfelt">
<img src="Icons/greenpowerpuff.jpg" onClick="setIcn(this)" width="50" height="50" border="1" class="mitfelt">
<img src="Icons/grisly.jpg" onClick="setIcn(this)" width="50" height="50" border="1" class="mitfelt">
<img src="Icons/redpowerpuff.jpg" onClick="setIcn(this)" width="50" height="50" border="1" class="mitfelt">
<img src="Icons/avis.jpg" onClick="setIcn(this)" width="50" height="50" border="1" class="mitfelt">
<img src="Icons/taz.jpg" onClick="setIcn(this)" width="50" height="50" border="1" class="mitfelt">
</font></td>
</tr>
<% if rs("icon") > "" then %>
<tr>
<td id="icnHolder" style="FONT-SIZE: 7pt; FONT-FAMILY: verdana" width="420" height="2"><img src="icons/<%=rs("icon")%>.jpg" class="mitfelt"></td>
<% else response.write "<td id='icnHolder' style='FONT-SIZE: 7pt; FONT-FAMILY: verdana' width='58' height='2'>Du har ikke valgt noget Ikon - Vælg et!</td>"
end if %>
</tr>
</table>
<input type="hidden" name="billede" value="<%=rs("icon")%>">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">
</font>
<td width="21%" height="193"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
</font></td>
</tr>
</table>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<table width="92%" border="0" align="left">
<tr>
<td width="77%" height="193"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">
</font>
<td width="21%" height="193"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
</font></td>
</tr>
</table>
<p> </p>
<p> </p>
</form>
Ret.asp:
<%
'Variables
Dim mySmartUpload, file9
'Object creation
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
On Error Resume Next
'Upload
mySmartUpload.Upload
Dim Error
Error = False
' If mySmartUpload.form("navn") = "" Then Error = True 'and fejl = ("<font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#FF0000'><br>Du har ikke angivet dit <B>Brugernavn</B></font><br>")
' If mySmartUpload.Form("news") = "" Then Error = True 'and rfejl = ("<font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#FF0000'><br>Du har ikke angivet dit <B>Password</B></font><br>")
' If mySmartUpload.Form("info") = "" Then Error = True 'and fejl = ("<font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#FF0000'><br>Du har ikke angivet din <B>E-Mail</B></font><br>")
' If mySmartUpload.Form("kategori") = "" Then Error = True 'and rfejl =("<font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#FF0000'><br>Du har ikke angivet hvad du <B>Hedder</B></font><br>")
If Error Then
response.write ("<font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#FF0000'><br>Du mangler at udfylde noge felter, gå tilbage og udfyld dem </font><br>")
else
'Only if the file exist
If not mySmartUpload.files.item(1).IsMissing Then
'sample with a physical path
mySmartUpload.files.item(1).SaveAs("../images/" & mySmartUpload.files.item(1).FileName)
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../aabbccddee.mdb") & ";UID=admin;PWD=******;"
'Tilføjer brugeren til databasen
Set rs = Server.CreateObject("ADODB.RecordSet")
strsql = "select * from bruger where username = '" & Session("username") & "'"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
'Display the properties of the current file
'Tilføjer brugeren til databasen og sender ham/hende til login siden
rs.AddNew
rs("Password") = mySmartUpload.form("password")
rs("Email") = mySmartUpload.form("email")
rs("Navn") = mySmartUpload.form("navn")
rs("By") = mySmartUpload.form("by")
rs("Beskrivelse") = mySmartUpload.form("beskrivelse")
rs("Alder") = mySmartUpload.form("alder")
rs("Cpu") = mySmartUpload.form("cpu")
rs("Moniter") = mySmartUpload.form("moniter")
rs("Grafikkort") = mySmartUpload.form("grafikkort")
rs("Mus") = mySmartUpload.form("mus")
rs("Musematte") = mySmartUpload.form("musematte")
rs("Oplosning") = mySmartUpload.form("oplosning")
rs("Sensitivity") = mySmartUpload.form("sensitivity")
rs("gamernick") = mySmartUpload.form("gamernick")
rs("signatur") = mySmartUpload.Form("signatur")
rs("icon") = mySmartUpload.Form("billede")
rs("Ip") = mySmartUpload.ServerVariables("REMOTE_ADDR")
rs("billed") = mySmartUpload.files.item(1).FileName
rs.Update
response.redirect "default.asp"
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
Else
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../aabbccddee.mdb") & ";UID=admin;PWD=**********;"
'Tilføjer brugeren til databasen
Set rs = Server.CreateObject("ADODB.RecordSet")
strsql = "select * from bruger where username = '" & Session("username") & "'"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
'Tilføjer brugeren til databasen og sender ham/hende til login siden
rs.update
rs("Password") = mySmartUpload.form("password")
rs("Email") = mySmartUpload.form("email")
rs("Navn") = mySmartUpload.form("navn")
rs("By") = mySmartUpload.form("by")
rs("Beskrivelse") = mySmartUpload.form("beskrivelse")
rs("Alder") = mySmartUpload.form("alder")
rs("Cpu") = mySmartUpload.form("cpu")
rs("Moniter") = mySmartUpload.form("moniter")
rs("Grafikkort") = mySmartUpload.form("grafikkort")
rs("Mus") = mySmartUpload.form("mus")
rs("Musematte") = mySmartUpload.form("musematte")
rs("Oplosning") = mySmartUpload.form("oplosning")
rs("Sensitivity") = mySmartUpload.form("sensitivity")
rs("gamernick") = mySmartUpload.form("gamernick")
rs("signatur") = mySmartUpload.Form("signatur")
rs("icon") = mySmartUpload.Form("billede")
rs("Ip") = mySmartUpload.ServerVariables("REMOTE_ADDR")
' rs("billed") = mySmartUpload.files.item(1).FileName
rs.Update
response.redirect "default.asp"
End If
end if
'end if
'end if
Err.Clear
Set mySmartUpload = Nothing
'end if
%>
Håber i kan hjælpe mig
