ASP-Upload
Hej!Jeg har en <FORM> her fra skal gemmes de indtastede oplysninger.(det virker fint).
Nu skal der så uploades en billed-fil fra samme <FORM>.
Det er her problemet kommer.
Jeg kan godt få det til at virke hver for sig.
Alså uploade en fil, uden de indtastede oplysninger.
<FORM>:
<<form action="opretnyvare1.asp" method="post">
<TABLE WIDTH="99%" BORDER=1 CELLSPACING=1 CELLPADDING=1 BGCOLOR=white>
<TR>
<TD></TD>
<TD></TD>
</TR>
<TR>
<TD><font face="verdana" size="2">Varenavn:</font></TD>
<TD><input type="text" name="varenavn"></TD>
</TR>
<TR>
<TD><font face="verdana" size="2">Varebeskrivelse:</font></TD>
<TD><TEXTAREA name="varebeskrivelse" rows=4 cols=15></TEXTAREA></TD>
</TR>
<TR>
<TD><font face="verdana" size="2">Farver:</font></TD>
<TD><input type="text" size="7" name="farve1"> <input type="text" size="7" name="farve2"> <input type="text" size="7" name="farve3"> <input type="text" size="7" name="farve4"></TD>
</TR>
<TR>
<TD><font face="verdana" size="2">Størrelser:</font></TD>
<TD><input type="text" size="7" name="size1"> <input type="text" size="7" name="size2"> <input type="text" size="7" name="size3"> <input type="text" size="7" name="size4"></TD>
</TR>
<TR>
<TD><font face="verdana" size="2">Pris:</font></TD>
<TD><input type="text" name="pris" size="5"></TD>
</TR>
<TR>
<TD><font face="verdana" size="2">Billede:</font></TD>
<TD><INPUT TYPE="file" name="file1" enctype="multipart/form-data"></TD>
</TR>
<TR>
<TD><font face="verdana" size="2">Kategori:</font></TD>
<TD><select name="kategori">
<%
If objRS.EOF Then
Response.Write "<font color=red><b>Ingen Varer fundet i denne Kategori !!</b></font>"
Else
Response.Write "<UL>"
Do while not objRS.EOF
Response.Write "<option value=" & objRS("Kategori")& ">" & objRS("Kategori") & "</option>"
objRS.Movenext
Loop
End if
objRS.Close
set objRS = Nothing
%>
</select>
</TD>
</TR>
<TR>
<TD> </TD>
<TD><input type="submit" value="Opret Varen"></TD>
</TR>
</TABLE>
</form>
Opretnyvare1.asp :
strSQL = "INSERT INTO varer ( varenavn, varebeskrivelse, color1, color2, color3, color4, size1, size2, size3, varepris, Kategori ) "
strSQL = strSQL & " VALUES('" & strVarenavn & "','" & strVarebeskrivelse & "','" & strFarve1 & "','" & strFarve2 & "',"
strSQL = strSQL & "'" & strFarve3 & "','" & strFarve4 & "','" & strSize1 & "','" & strSize2 & "','" & strSize3 & "','" & intPris & "','" & strKategori & "')"
objconn.Execute strSQL
objRS.Close
Set objRS = Nothing
objConn.Close
set objConn = Nothing
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.Save("d:\home\istoriadk\www\lachica\webshop\varer_pic\")
