Hvad går galt ???

strVarenavn = request.Form("varenavn")

?

du skal vist nok kalde upload inden du hendt data...

Upload.Upload
strVarenavn = Upload.Form("varenavn")

Med asp-upload Og atributten enctype="multipart/form-data"
skal man bruge Upload.Form

Jeg har tjekket ved at skrive:
Response.Write strVarenavn,
uden om if sætningen

DVS. at strVarenavn indeholder hvad der nu er skrevet i feltet 'varenavn'
?????????????

Så er den nok Null .. Prøv med:

if len("" & strVarenavn) = 0 then
  Response.Write "Du skal skrive i feltet !!"
end if

nå - du snakkede jo ikke noget om at du havde indsat nog aspupload :)

hvilken felt-type er varenavn? kom evt med lidt mere kode...

keysersoze, prøv lige at læse 3. linie af spørgsmålet :)

eagleeye<<--
Den vil ikke virke :-(

felt typen er text.
<form action="opretnyvare1.asp" method="post" enctype="multipart/form-data">   
<input type="text" name="varenavn">
<input type="submit" value="Opret Varen">
</form>

og du kan udskrive den ??

hov :)

hvad med koden til den side der modtager?

OK, nu er jeg på sporet ???

Du får lige hele Koden ;-)
Det er hvis der ikke kommer en fil med fra feltet: <INPUT TYPE="file" name="file1">


Koden:

<%@ Language=VBScript%>
<%response.buffer=true%>

<html>
<head>
<META NAME="ROBOTS" CONTENT="NOINDEX, NOFOLLOW">
<title>La Chica - Administration</title>
</head>

<body>

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.Save("d:\home\lachicadk\www\ny\webshop\varer_pic\")



for each file in Upload.Files

'if file.size>50000 or file.imageheight>200 or file.imagewidth>150 then
' file.delete
' Response.Write "<center><font size=5><b>Billedet har ikke den rigtige størrelse !!</b></font><br>"
' Response.Write "<a href='java script: history.go(-1)'>Prøv igen, Klik Her !!</a>"
' Response.End
'End if


        strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Server.Mappath("../webshop/db/webshop.mdb") & ";"

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConnection


Set objRS = Server.CreateObject("ADODB.Recordset")
Set objRS.ActiveConnection = objconn


strbillednavn = File.ExtractFileName

strVarenavn = Upload.Form("varenavn")

strVarebeskrivelse = Upload.Form("varebeskrivelse")
strVarebeskrivelse = Replace(strVarebeskrivelse,"'","''")


strFarve1 = Upload.Form("farve1")
strFarve2 = Upload.Form("farve2")
strFarve3 = Upload.Form("farve3")
strFarve4 = Upload.Form("farve4")

strSize1 = Upload.Form("size1")
strSize2 = Upload.Form("size2")
strSize3 = Upload.Form("size3")
strSize4 = Upload.Form("size4")

intPris = Upload.Form("pris")

strKategori = Upload.Form("kategori")

strVarenavn = Upload.Form("varenavn")

if strVarenavn = "" then
    Response.Write "Feltet er tomt"
end if


strSQL = "INSERT INTO varer ( varenavn, varebeskrivelse, color1, color2, color3, color4, size1, size2, size3, size4,  varepris, Kategori, Pic) "   
strSQL = strSQL & " VALUES('" & strVarenavn & "','" & strVarebeskrivelse & "','" & strFarve1 & "','" & strFarve2 & "',"
strSQL = strSQL & "'" & strFarve3 & "','" & strFarve4 & "','" & strSize1 & "','" & strSize2 & "','" & strSize3 & "','" & strSize4 & "','" & intPris & "','" & strKategori & "','" & strbillednavn & "')"

objconn.Execute strSQL

Next


Set objRS = Nothing

set objConn = Nothing



 
%>



<TABLE WIDTH=755 BORDER=0 CELLSPACING=1 CELLPADDING=1 STYLE="BORDER-RIGHT:
#000000 1px solid;
BORDER-TOP: #000000 1px
solid; BORDER-LEFT: #000000
1px solid; BORDER-BOTTOM: #000000 1px solid">
    <TR>
        <TD>
<center><font face="verdana" size="5"><b>WebShoppen</b></font><br>
        <font face="verdana" size="2"><A href="showoptions.asp">oversigt</a> | <A href="webshopadmin.asp">Webshop</a> | Newsletter | Girls Talk | Nyheder | Afstemning</font></center>
<br>

<TABLE WIDTH="99%" BORDER=1 CELLSPACING=1 CELLPADDING=1 ALIGN=center>
    <TR>
        <TD bgcolor="#c9c9c9">
<TABLE WIDTH="99%" BORDER=1 CELLSPACING=1 CELLPADDING=1>
    <TR>
        <TD width="20%"><A href="opretnyvare.asp"><font face="verdana" size="2">Opret ny vare</font></A></TD>
        <TD width="20%"><font face="verdana" size="2">Ret vare</font></TD>
        <TD width="20%"><font face="verdana" size="2">Slet vare</font></TD>
        <TD width="20%"><font face="verdana" size="2">Opret ny Kategori</font></TD>
        <TD width="20%"><font face="verdana" size="2">Slet kategori</font></TD>
       
    </TR>
</TABLE>
       
       

       
        </TD>
    </TR>
   
    <TR>
        <TD bgcolor="#FFFFFF">
        <br>
        <center><font face="verdana" size="3"><b>Varen blev oprettet</b></font><br>
        <a href=""><font face="verdana" size="2">Ret denne Vare</a> | <a href="opretnyvare.asp">Opret Flere Varer</a></font></center>


               
        </TD>
    </TR>
    <TR>
        <TD>
       
       
    <br>   
       
       
        <%
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Server.Mappath("../webshop/db/webshop.mdb") & ";"

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConnection


Set objRS = Server.CreateObject("ADODB.Recordset")
Set objRS.ActiveConnection = objconn


SQL = "SELECT * FROM varer WHERE Kategori='" & strKategori & "' AND varebeskrivelse='" & strVarebeskrivelse & "'"

objRS.Open  SQL


Response.Write "<table border=0 align=center width=""90%"" BGCOLOR=#FFFFFF STYLE=""BORDER-RIGHT: #B91863 1px solid; BORDER-TOP: #B91863 1px solid; BORDER-LEFT: #B91863 1px solid; BORDER-BOTTOM: #B91863 1px solid""><tr>"
                Response.Write "<TD width=""30%""><img src=../webshop/varer_pic/" & objRS("pic") & " border=1 height=200 width=150 alt=""La Chica""></td>"                
                Response.Write "<TD width=""30%"" vAlign=top>"
                Response.Write "<font face=verdana size=2><b>" & objRS("varenavn") & "</b>"
                Response.Write "<br>" & objRS("varebeskrivelse") & "</font><br><br>"
                Response.Write "<font face=verdana><b>kr.&nbsp;" & objRS("varepris") & "</td><TD width=""30%"" vAlign=""top"">"
                Response.Write "<table width=""99%"">"
               
'***Hvis der er størrelser******
                if len(strSize1) > 0 then
                Response.Write "<tr><td><font face=verdana size=2>Størrelse:</td>"
                Response.Write "<td><select name=""size"">"
                Response.Write "<option value=>" & objRS("size1") & "</option>"
                Response.Write "<option value=>" & objRS("size2") & "</option>"
                Response.Write "<option value=>" & objRS("size3") & "</option>"
                Response.Write "<option value=>" & objRS("size4") & "</option>"
                Response.Write "</select></td></tr>"
                End if
'*******************************
               
                Response.Write "<tr><td>Antal:</td>"
                Response.Write "<td><input type=""text"" size=""2"" value=""1""></td></tr>"
                Response.Write "<tr><td>&nbsp;</td>"       
                Response.Write "</tr></table><br>"
                Response.Write "<center><a href=""kurv.asp?""><img src=""../webshop/img/knap1.jpg"" border=""0""></a></center>"
                Response.Write "</tr></table>"
       
       
       
    objConn.Close
Set objConn = Nothing   
       
%>   
       
       
       
        </TD>
    </TR>
</TABLE>

               
       
        </TD>
    </TR>
</TABLE>


</body>
</html>

Den skal selvfølgelig ligge uden for:
For each løkken

Jeg ved ikke om det har noget at sige med: strVarenavn = Upload.Form("varenavn")  er det to gange, det er normalt ikke et problem med request.form...:

strbillednavn = File.ExtractFileName

strVarenavn = Upload.Form("varenavn")      '<--- første gang
..
..
strKategori = Upload.Form("kategori")
strVarenavn = Upload.Form("varenavn")    '<--- anden gang

if strVarenavn = "" then

if-sætningen skal være før 'For loopet', og så virker det, men tak for hjælpen alligevel