Find fejlen i opret side, med ASPSmartUpload
Har et problem der hedder at når jeg vil oprette et produkt, så bliver dette oprettet, men selve billedet kommer ikke op, nogen her der kan finde fejlen.OPRET.ASP
------------------------------------------------------------
<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" ENCTYPE="multipart/form-data">
<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">
<p><select size="1" name="Kategori">
<option selected>KATEGORI</option>
<option value="Nokia">Nokia</option>
<option value="Sony-Ericsson">Sony-Ericsson</option>
<option value="LG">LG</option>
<option value="Motorola">Motorola</option>
<option value="Qtek">Qtek</option>
<option value="NEC">NEC</option>
<option value="Samsung">Samsung</option>
<option value="Siemens">Siemens</option>
<option value="Tilbehør">Tilbehør</option>
</select></p>
</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>
------------------------------------------------------------
OPRET_HANDLER.ASP
------------------------------------------------------------
<%
' 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\pivskid.dk\mobilsalg\produkter\" & mySmartUpload.files.item(1).FileName)
' Connect to the DB
' *****************
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "PROVIDER=MSDASQL; UID=; PWD=; DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\web\localuser\pivskid.dk\database\mobilsalg.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("Navn") = mySmartUpload.Form("Navn")
oRs("Beskrivelse") = mySmartUpload.Form("Beskrivelse")
oRs("Pris") = mySmartUpload.Form("Pris")
oRs("Kategori") = mySmartUpload.Form("Kategori")
oRs("Dato") = mySmartUpload.Form ("date()")
oRs.Update
intCount = intCount + 1
End If
Next
' Display the number of files uploaded
' ************************************
Response.Write("Billedet er blevet uploadet!<BR>")
' Destruction
' ***********
oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
%>
