Får ett konstigt felmeddelande nu.
Jag ska lägga till all information om en (ny)produkt i databasen och jag har försökt med följande kod:
<% ElseIf Request.QueryString("page") = "upload" Then
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.SaveVirtual("../images")
Function namn(str)
if isnull(str) or len(str) = 0 then
name = ""
return
end if
Dim pos
str = Trim(str)
pos = inStrRev(str,"\")
namn = Right(str,Len(str)-pos)
End Function
Sub add(Fil)
kat = Trim(Request.Form("kat"))
namn = Trim(Request.Form("namn"))
pris = Trim(Request.Form("pris"))
falt1 = Trim(Request.Form("falt1"))
falt2 = Trim(Request.Form("falt2"))
falt3 = Trim(Request.Form("falt3"))
falt4 = Trim(Request.Form("falt4"))
falt5 = Trim(Request.Form("falt5"))
falt6 = Trim(Request.Form("falt6"))
falt7 = Trim(Request.Form("falt7"))
falt8 = Trim(Request.Form("falt8"))
falt9 = Trim(Request.Form("falt9"))
falt10 = Trim(Request.Form("falt10"))
falt11 = Trim(Request.Form("falt11"))
falt12 = Trim(Request.Form("falt12"))
falt13 = Trim(Request.Form("falt13"))
falt14 = Trim(Request.Form("falt14"))
falt15 = Trim(Request.Form("falt15"))
sfalt1 = Trim(Request.Form("sfalt1"))
sfalt2 = Trim(Request.Form("sfalt2"))
sfalt3 = Trim(Request.Form("sfalt3"))
sfalt4 = Trim(Request.Form("sfalt4"))
sfalt5 = Trim(Request.Form("sfalt5"))
sfalt6 = Trim(Request.Form("sfalt6"))
sfalt7 = Trim(Request.Form("sfalt7"))
sfalt8 = Trim(Request.Form("sfalt8"))
sfalt9 = Trim(Request.Form("sfalt9"))
sfalt10 = Trim(Request.Form("sfalt10"))
sfalt11 = Trim(Request.Form("sfalt11"))
sfalt12 = Trim(Request.Form("sfalt12"))
sfalt13 = Trim(Request.Form("sfalt13"))
sfalt14 = Trim(Request.Form("sfalt14"))
sfalt15 = Trim(Request.Form("sfalt15"))
ovrigt = Trim(Request.Form("ovrigt"))
lank1 = Trim(Request.Form("lank1"))
lank2 = Trim(Request.Form("lank2"))
lank3 = Trim(Request.Form("lank3"))
lank4 = Trim(Request.Form("lank4"))
lank5 = Trim(Request.Form("lank5"))
status = Trim(Request.Form("status"))
SQL = "INSERT INTO produkter(kat, namn, pris, falt1, falt2, falt2, falt3, falt4, falt5, falt6, falt7, falt8, falt9, falt10, falt11, falt12, falt13, falt14, falt15, sfalt1, sfalt2, sfalt2, sfalt3, sfalt4, sfalt5, sfalt6, sfalt7, sfalt8, sfalt9, sfalt10, sfalt11, sfalt12, sfalt13, sfalt14, sfalt15, ovrigt, bild1, bild2, bild3, lank1, lank2, lank3, lank4, lank5, status) VALUES('" & kat & "','" & namn & "'," & pris & ",'" & falt1 & "','" & falt2 & "','" & falt2 & "','" & falt3 & "','" & falt4 & "','" & falt5 & "','" & falt6 & "','" & falt7 & "','" & falt8 & "','" & falt9 & "','" & falt10 & "','" & falt11 & "','" & falt12 & "','" & falt13 & "','" & falt14 & "','" & falt15 & "','" & sfalt1 & "','" & sfalt2 & "','" & sfalt2 & "','" & sfalt3 & "','" & sfalt4 & "','" & sfalt5 & "','" & sfalt6 & "','" & sfalt7 & "','" & sfalt8 & "','" & sfalt9 & "','" & sfalt10 & "','" & sfalt11 & "','" & sfalt12 & "','" & sfalt13 & "','" & sfalt14 & "','" & sfalt15 & "','" & ovrigt & "','" & FIL & "','" & FIL & "','" & FIL & "'_
,'" & lank1 & "','" & lank2 & "','" & lank3 & "','" & lank4 & "','" & lank5 & "','" & status & "'
Connection.Execute(SQL)
End Sub
For Each File in Upload.Files
add(namn(File.Path))
Next
Response.Redirect"addprod.asp?page=done&namn='" & namn & "'"
%>
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0409)
Oavslutad strängkonstant
/test/mystore/admin/addprod.asp, line 330, column 1018
SQL = "INSERT INTO produkter(kat, namn, pris, falt1, falt2, falt2, falt3, falt4, falt5, falt6, falt7, falt8, falt9, falt10, falt11, falt12, falt13, falt14, falt15, sfalt1, sfalt2, sfalt2, sfalt3, sfalt4, sfalt5, sfalt6, sfalt7, sfalt8, sfalt9, sfalt10, sfalt11, sfalt12, sfalt13, sfalt14, sfalt15, ovrigt, bild1, bild2, bild3, lank1, lank2, lank3, lank4, lank5, status) VALUES('" & kat & "','" & namn & "'," & pris & ",'" & falt1 & "','" & falt2 & "','" & falt2 & "','" & falt3 & "','" & falt4 & "','" & falt5 & "','" & falt6 & "','" & falt7 & "','" & falt8 & "','" & falt9 & "','" & falt10 & "','" & falt11 & "','" & falt12 & "','" & falt13 & "','" & falt14 & "','" & falt15 & "','" & sfalt1 & "','" & sfalt2 & "','" & sfalt2 & "','" & sfalt3 & "','" & sfalt4 & "','" & sfalt5 & "','" & sfalt6 & "','" & sfalt7 & "','" & sfalt8 & "','" & sfalt9 & "','" & sfalt10 & "','" & sfalt11 & "','" & sfalt12 & "','" & sfalt13 & "','" & sfalt14 & "','" & sfalt15 & "','" & ovrigt & "','" & FIL & "','" & FIL & "','" & FIL & "'_
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -----------------------------------------------------------------------------------------------------------------------------------------^
Rad 330 är i blå färg.
Jag antar att det blir något fel när jag använder _ för att byta rad.
Sen, Mikul; har jag gjort rätt där jag skrivit & FIL &?
/Mika3l
------------------
Det stora datatestet:
Ok, då börjar vi!
För att börja testet tryck alt+F4.
MK-Studios v2!