ASPSmartUpload + sti i database
OK jeg pröver igen.Jeg skal bruge et script der lägger to billeder (stort + lille) i en mappe("bilder") på serveren. Stien til det lille billede skal så lägges i en access database, hvor der allerede er en eksisterende tabel.
Jeg har kikket lidt på det, men får ikke rigtigt styr på lortet. Medsender koden men läg ikke for stor vägt på save.asp
_______________________addPic.asp_______________________¨
<html>
<head>
<title>ELDMAKAREN/ADMINISTRATION</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="../eldmakaren.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#666666" link="#666666" vlink="#666666" alink="#666666" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="../bilder/bgd_main.gif">
<table width="640" border="0" cellspacing="7" cellpadding="0">
<tr>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#990000"><b><font size="3">Lägg
till bilder</font></b></font></td>
</tr>
</table>
<br>
<table width="350" border="0" cellpadding="0" cellspacing="5">
<tr align="left" valign="top">
<td align="left"><b><font size="2">Fyll i formuläret</font></b></td>
</tr>
<tr align="left" valign="top">
<td align="center"><img src="../bilder/1x1_cccccc.gif" width="350" height="1"></td>
</tr>
</table>
<form action="addPic.asp" method="post" name="kat">
<table border="0" cellspacing="0" cellpadding="0" width="13%">
<tr>
<td width="31%"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Produkt:
</font></td>
<td width="69%"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<select name="cat" onChange="document.kat.submit();" class="knappred">
<option selected>Välj produkt</option>
<option value="flamdekorationer">Flamdekorationer</option>
<option value="gaseldadeBrasor">Brasor</option>
<option value="gaseldadeOppnaSpisar">Öppna spisar</option>
<option value="utrustning">Utrustning</option>
</select>
</font></td>
</tr>
</table>
</form>
<form method="post" name="modell" action="addPic.asp">
<table border="0" cellspacing="0" cellpadding="0" width="19%">
<tr>
<td width="21%"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Modell:
</font></td>
<td width="79%"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<select name="modellist" class="cellkantred">
<%
set conn = server.CreateObject("ADODB.CONNECTION")
DSN = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("..\db\eldAdmin.mdb")
conn.Open DSN
Dim Cat,modell
Cat=request.form("cat")
%>
<option selected>Välj modell</option>
<%
if Cat <> "" then
if Cat="flamdekorationer" or Cat="gaseldadeBrasor" then
modell="model"
strSQL = "SELECT "&modell&" FROM "&Cat&""
end if
if Cat="gaseldadeOppnaSpisar" then
modell="namn"
strSQL = "SELECT "&modell&" FROM "&Cat&""
end if
if Cat="utrustning" then
modell="produkt"
strSQL = "SELECT "&modell&" FROM "&Cat&""
end if
' SQL sætning eksekveres
set RS = conn.execute(strSQL)
do while not rs.EOF
%>
<option value='<%=rs(modell)%>'><%=rs(modell)%></option>
<%
rs.moveNext
loop
conn.close
end if
%>
</select>
</font></td>
</tr>
</table>
</form>
<form METHOD="POST" ACTION="save.asp" NAME="PW" ENCTYPE="multipart/form-data">
<table CELLSPACING="0" CELLPADDING="3" BORDER="0" WIDTH="474">
<input type="hidden" name="kategori" value='<%=Cat%>'>
<input type="hidden" name="model" value='<%request.form("modell")%>'>
<!-- FILE -->
<tr>
<td width="55"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Stor
bild:</font></td>
<td width="407"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input TYPE="file" name="FILE1" class="knappred"></font></td>
</tr>
<tr>
<td width="55"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Thumbnail:</font></td>
<td width="407"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input TYPE="file" name="FILE2" class="knappred"></font></td>
</tr>
<!-- SUBMIT -->
<tr>
<td width="55"></td>
<td width="407">
<input TYPE="Submit" class="knappred" value="Spara"></td>
</tr>
</table>
</form>
<table width="360" border="0" cellpadding="0" cellspacing="5">
<tr align="left" valign="top">
<td align="center"><img src="../bilder/1x1_cccccc.gif" width="350" height="1"></td>
</tr>
</table>
</body>
</html>
_____________________Slut addPic.asp______________________
_____________________save.asp______________________________
<%@Language="VBScript"%>
<html>
<head>
<title>aspSmartUpload : Sample 1</title>
</head>
<body>
<h1>aspSmartUpload : Sample 1</h1>
<hr>
<%
'Variables
' *********
Dim mySmartUpload
Dim intCount
Dim prod
Dim mod
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload
' ******
mySmartUpload.Upload
set conn = server.CreateObject("ADODB.CONNECTION")
DSN = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("..\db\eldAdmin.mdb")
conn.Open DSN
prod = mySmartUpload.form("kategori")
mod = mySmartUpload.form("model")
strSQL="UPDATE " & prod & " SET [billedsti] = " & fileName & " where model = " & mod & "
' Save the files with their original names in a virtual path of the web server
' ****************************************************************************
'intCount = mySmartUpload.Save("/aspSmartUpload/Upload")
' sample with a physical path
intCount = mySmartUpload.Save("d:\domains\eldmakaren.se\informo\bilder")
' Display the number of files uploaded
' ************************************
Response.Write(intCount & " file(s) uploaded.")
%>
</body>
</html>
____________________ slut save.asp ______________________
