AspSmartUpload script skal bygges ind i et opret produkt script
HejJeg har følgende problem, jeg har en side til at oprette et produkt og det der mangler er en upload til produkt billeder.
Jeg har fundet et Aspsmartupload script, som skulle være ganske funktions dygtigt, mangler nu at få det kobineret med de 2 andre sider.
Opret siden :
<html>
<head>
<title>Opret Produkt</title>
</head>
<body>
<div align="center">
<p><b><u><font face="Verdana" size="2">Opret Nyt Produkt</font></u><font face="Verdana" size="1"> </font>
</b></p>
<table border="0" width="100%" height="204">
<tr>
<form method="POST" action="Produkt_Opret_Handler.asp">
<td width="20%" height="25" bgcolor="#C0C0C0"><b>
<font face="Verdana" size="1">Overskrift</font></b></td>
<td height="25"><input type="text" name="Navn" size="34" value=""></td>
</tr>
<tr>
<td width="20%" height="62" valign="top" bgcolor="#C0C0C0"><b>
<font face="Verdana" size="1">Produkt Beskrivelse</font></b></td>
<td height="62">
<p><textarea rows="13" name="Beskrivelse" cols="40"></textarea></p>
</td>
</tr>
<tr>
<td width="20%" height="20" bgcolor="#C0C0C0"><b>
<font face="Verdana" size="1">Pris</font></b></td>
<td height="20"><input type="text" name="Pris" size="20" value=""></td>
</tr>
<tr>
<td width="20%" height="20" bgcolor="#C0C0C0"><b>
<font face="Verdana" size="1">Kategori</font></b></td>
<td height="20"><input type="text" name="Kategori" size="20" value=""></td>
</tr>
<tr>
<td width="20%" valign="top" align="left" height="27" bgcolor="#C0C0C0">
<b><font face="Verdana" size="1">Billede</font></b></td>
<td height="20">
<p><input type="file" name="Billede" size="20"></p>
</td>
</tr>
<tr>
<td width="20%" valign="top" align="left" height="27" bgcolor="#C0C0C0"></td>
<td height="27">
<p>
<input type="submit" value="Tilføj Til Siden" style="font-family: Verdana; font-size: 10px; font-weight: bold"></p>
</td>
</tr>
</table>
</form>
</div>
</body>
</html>
-----------------------------------------------------------------
Produkt Opret Handler Siden :
<!---#include file="protect.inc"--->
<%
Response.Expires = -1
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("Database.mdb")
Conn.Open DSN
strSQL = "Insert into Produkter ("
strSQL = strSQL & "Navn, "
strSQL = strSQL & "Beskrivelse, "
strSQL = strSQL & "Pris, "
strSQL = strSQL & "Kategori, "
strSQL = strSQL & "Billede) "
strSQL = strSQL & "values( "
strSQL = strSQL & "'" & replace(request.form("Navn"),"'","''") & "', "
strSQL = strSQL & "'" & replace(request.form("Beskrivelse"),"'","''") & "', "
strSQL = strSQL & "'" & request.form("Pris") & "', "
strSQL = strSQL & "'" & request.form("Kategori") & "', "
strSQL = strSQL & "'" & replace(request.form("Billede"),"'","''") & "')"
Conn.Execute(strSQL)
Conn.Close
dim Interval
dim strURL
Interval = 3
strURL = Request.Servervariables("HTTP_REFERER")
Response.addHeader "Refresh", Interval & ";URL=" & strURL
%>
<font face="Verdana" size="1" color="Green"><b>Produkt Oprettet succesfuldt!</b><br> Du bliver nu sendt tilbage om <%=Interval%> sekunder...</font>
-----------------------------------------------------------------
Også til sidst det Aspsmartupload script :
<%
' Variables
' *********
intCount=0
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload
' ******
mySmartUpload.Upload
mySmartUpload.AllowedFilesList = "jpg,JPG,bmp,BMP,JPEG,jpeg,gif,GIF,PNG,png,Tiff,TIFF,tiff"
mySmartUpload.files.item(1).SaveAs("d:\web\localuser\domain.dk\public_html\mobilpris\produkter" & mySmartUpload.files.item(1).FileName)
' Connect to the DB
' *****************
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "PROVIDER=MSDASQL; UID=; PWD=123; DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("admin\database.mdb")
' Open a recordset
' ****************
strSQL = "SELECT * FROM produkter"
Set oRs = Server.CreateObject("ADODB.recordset")
Set oRs.ActiveConnection = oConn
oRs.Source = strSQL
oRs.LockType = 3
oRs.Open
' Select each file
' ****************
For each file In mySmartUpload.Files
' Only if the file exist
' **********************
If not file.IsMissing Then
' Add the current file in a DB field
' **********************************
oRs.AddNew
oRs("billede") = mySmartUpload.files.item(1).FileName
oRs.Update
intCount = intCount + 1
End If
Next
' Display the number of files uploaded
' ************************************
Response.Write("Billedet er blevet uploadet!<BR><br><a href=""?side=10&func=1&id=" & session("opretbilledid") & """>Gå tilbage til for at uploade et nyt</a>")
' Destruction
' ***********
oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
%>
