Hejsa
Jeg har et problem med at oplodes billeder.. den gøre det at den ligger
billedet ind i mappen, og så skriver den heller ikke noget i databasen!!
der hvor det er blive vist til. men den viser ikke billede...
Den kode jeg har ser sådan her ud:
<%
valg = request.querystring("valg")
if valg = "" then
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ="&(Server.MapPath(".")) &"../db/database.mdb;
DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver
(*.mdb)};"
SQL = "SELECT * FROM scooter_tbl"
set rs = Conn.execute(SQL)
%>
<b>Du skal kun oprette dig som bruger hvis du har en scooter/knallert du vil
have på siden!!!</b><br><br>
<form method="POST" action="index.asp?side=bruger&valg=opret"
ENCTYPE="multipart/form-data">
Vælg scootermodel: (findes modellen ikke på listen, kontakt da
webmaster)<br>
<Select name="scooternavn">
<% do while not rs.eof%>
<option value="<%= rs("scooter_navn")%>"><%= rs("scooter_navn")%></option>
<% rs.movenext
loop
conn.close
set conn = nothing
%>
</Select><br><br>
Profilbillede. dette billede vises under brugere. du skal sende dit profil
billede til <a href="mailto:webmaster@scooterhoved.dk">webmasteren.</a>..
<br>
<!-- FILE -->
<INPUT TYPE="FILE" NAME="FILE5" SIZE="50"><br>
<!-- TEXT -->
<br>
Brugernavn:<br>
<input class="felt" type="text" name="brugernavn" size="24"><br><br>
Adgangskode:<br>
<input class="felt" type="text" name="adgangskode" size="24"><br><br>
Navn:<br>
<input class="felt" type="text" name="navn" size="24"><br><br>
Email:<br>
<input class="felt" type="text" name="mail" size="24"><br><br>
Scootermodel:<br>
<input class="felt" type="text" name="scootermodel" size="24"><br><br>
<!-- FILE -->
Billede af din scooter:(du skal skrive navnet på billedet. Eks. mitnavn.jpg
og derefter kontakte webmaster som skal have billedet og godkende det.) Der
må <b>IKKE</b> være mellemrum i navnet eks. 1 2.jpg<br>
<INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="FILE2" SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="FILE3" SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="FILE4" SIZE="50"><BR>
<!-- TEXT -->
<br>
Scooter Årgang:<br>
<input class="felt" type="text" name="scooteryear" size="24"><br><br>
Beskrivelse af scooter:<br>
<!-- TEXTAREA -->
<textarea name="beskrivelse" rows="10" cols="50"></textarea><br><br>
Tundele:<br>
<textarea name="tundele" rows="10" cols="50"></textarea><br><br>
Styling/gejl:<br>
<textarea name="gejl" rows="10" cols="50"></textarea><br><br>
Topfart:<br>
<!-- TEXT -->
<input class="felt" type="text" name="topfart" size="24"><br><br>
Optræk:<br>
<input class="felt" type="text" name="optraek" size="24"><br><br>
Fremtid:<br>
<!-- TEXTAREA -->
<textarea name="fremtid" rows="10" cols="50"></textarea><br><br>
<!-- SUBMIT -->
<input class="button" type="submit" value="Opret" name="valg">
</form>
<%
elseif valg = "opret" then
' Variables
' *********
Dim mySmartUpload
Dim intCount
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
strscooternavn = mySmartUpload.Form("scooternavn")
strbrugernavn = mySmartUpload.form("brugernavn")
stradgangskode = mySmartUpload.form("adgangskode")
strnavn = mySmartUpload.form("navn")
strmail = mySmartUpload.form("mail")
strscootermodel = mySmartUpload.form("scootermodel")
strscooterpicture5 = mySmartUpload.form("FILE4")
strscooterpicture4 = mySmartUpload.form("FILE3")
strscooterpicture3 = mySmartUpload.form("FILE5")
strscooterpicture = mySmartUpload.form("FILE1")
strscooterpicture2 = mySmartUpload.form("FILE4")
strscooteryear = mySmartUpload.form("scooteryear")
strbeskrivelse = mySmartUpload.form("beskrivelse")
strtundele = mySmartUpload.form("tundele")
strgejl = mySmartUpload.form("gejl")
strtopfart = mySmartUpload.form("topfart")
stroptraek = mySmartUpload.form("optraek")
strfremtid = mySmartUpload.form("fremtid")
strbeskrivelse=replace(strbeskrivelse, "'", "''")
strbeskrivelse=replace(strbeskrivelse,vbCrLf,"<br>")
strfremtid=replace(strfremtid, "'", "''")
strfremtid=replace(strfremtid,vbCrLf,"<br>")
strtundele=replace(strtundele,"'","''")
strtundele=replace(strtundele,vbCrLf,"<br>")
strgejl=replace(strgejl, "'","''")
strgejl=replace(strgejl,vbCrLf,"<br>")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ="&(Server.MapPath(".")) &"/db/database.mdb;
DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver
(*.mdb)};"
SQL = "SELECT member_brugernavn FROM member_tbl WHERE member_brugernavn='"&
strbrugernavn &"' "
set rs = conn.execute (SQL)
if RS.EOF Then
strSQL = "insert into
member_tbl(member_scooter_navn,member_brugernavn,member_adgangskode,member_n
avn,member_email,member_scooter_model,member_profil,member_picture,member_bi
llede,member_billede1,member_billede2,member_scooter_year,member_beskrivelse
,member_tundele,member_gejl,member_topfart,member_optraek,member_fremtid,mem
ber_ip)"
strSQL = strSQL & " Values('"& strscooternavn &"','"& strbrugernavn &"','"&
stradgangskode &"','"& strnavn &"','"& strmail &"','"& strscootermodel
&"','"& strscooterpicture3 &"','"& strscooterpicture &"','"&
strscooterpicture2 &"','"& strscooterpicture4 &"','"& strscooterpicture5
&"','"& strscooteryear &"','"& strbeskrivelse &"','"& strtundele &"','"&
strgejl &"','"& strtopfart &"','"& stroptraek &"','"& strfremtid &"','"&
request.servervariables("REMOTE_ADDR") &"')"
' Upload
' ******
mySmartUpload.Upload
' Save the files with their original names in a virtual path of the web
server
'
****************************************************************************
intCount = mySmartUpload.Save("/images")
' sample with a physical path
' intCount = mySmartUpload.Save("c:\temp\")
conn.execute (strSQL)
conn.close
set conn = nothing
response.write "du er nu oprettet som bruger og kan nu logge ind og ændre
dine scooteroplysninger når du vil. Husk dit login og password"
else
response.write "Desværre brugernavnet er brugt, du må finde på et andet."
end if
end if
%>
Hvad kan fejlen være??
--
Med Venlige Hilsen
Tobias Klint / Webmaster
siden til dig og din scooter
www.scooterhoved.dk / der er også et forum