---
title: "Parameter strul"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/7616-parameter-strul"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "AG"
published: "2001-01-04T05:45:00.000Z"
updated: "2001-01-06T22:12:00.000Z"
replies: 7
views: 210
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/7616-parameter-strul"
---

# Parameter strul

## #1 — AG, 2001-01-04T05:45Z

Får inte följande att fungera, ger error
"För få parameters angav, 1 förväntades"

```
SQLStmt = "UPDATE Skarmdumpar SET " 
SQLstmt = SQLstmt & "Rubrik = '" & UploadRequest.Item("rubrik").Item("Value") & "', "
SQLstmt = SQLstmt & "Introbild = '" & introb & "', "
SQLstmt = SQLstmt & "Sscreen1 = '" & file1 & "', "
SQLstmt = SQLstmt & "Sscreen2 = '" & file2 & "', "
SQLstmt = SQLstmt & "Sscreen3 = '" & file3 & "', "
SQLstmt = SQLstmt & "Sscreen4 = '" & file4 & "', "
SQLstmt = SQLstmt & "Sscreen5 = '" & file5 & "', "
SQLstmt = SQLstmt & "Sscreen6 = '" & file6 & "', "
SQLstmt = SQLstmt & "Screen1 = '" & file7 & "', "
SQLstmt = SQLstmt & "Screen2 = '" & file8 & "', "
SQLstmt = SQLstmt & "Screen3 = '" & file9 & "', "
SQLstmt = SQLstmt & "Screen4 = '" & file10 & "', "
SQLstmt = SQLstmt & "Screen5 = '" & file11 & "', "
SQLstmt = SQLstmt & "Screen6 = '" & file12 & "', "
SQLstmt = SQLstmt & "[Text] = '" & UploadRequest.Item("infotext").Item("Value") & "', "
SQLstmt = SQLstmt & "Email = '" & UploadRequest.Item("email").Item("Value") & "', "
SQLstmt = SQLstmt & "Skribent = '" & UploadRequest.Item("skribent").Item("Value") & "'"
SQLStmt = SQLStmt & " where id =" & Cint(rs("id"))
response.write sqlstmt
Connection.Execute(SQLstmt)
```

Jag blir inte klokare av det jag får fram när jag skriver ut sqlstmt heller.
Alla fält är är av typen text utom text, pm, och id.

Andreas

Permalänk: https://www.webforum.nu/p/7616

## #2 — @nders, 2001-01-04T07:03Z

vad får du ut av response.write sqlstmt då?

vi förstår nog! ;)

Permalänk: https://www.webforum.nu/p/253420

## #3 — AG, 2001-01-04T07:17Z

Får hoppas det :)

```
UPDATE Skarmdumpar SET Rubrik = 'Fint spel', Introbild = '123fusk.txt', Sscreen1 = 'a.txt', Sscreen2 = 'b.txt', Sscreen3 = 'Na.txt', Sscreen4 = '', Sscreen5 = '', Sscreen6 = 'Default.pbk', Screen1 = 'De första slotten byggdes som fästningar.doc', Screen2 = '', Screen3 = '', Screen4 = 'Borgar och Slott.doc', Screen5 = 'ny.txt', Screen6 = '', [Text] = 'Mycket kompetent spel. Som kan spelas flera gånger. Andreas', Email = 'andreas@netmails.com, Skribent = 'Andreas Gustafsson' where id =1 
Microsoft OLE DB Provider for ODBC Drivers fel '80040e10' 

[Microsoft][Drivrutin för ODBC Microsoft Access] För få parametrar angavs. 1 förväntades. 

/uppdatera2.asp, rad 518
```

Tog med allt där, som du förhoppningsvis ser :)

Andreas

Permalänk: https://www.webforum.nu/p/253421

## #4 — @nders, 2001-01-04T07:42Z

du har glömt en apostrof efter emailadressen. annars ser det nog rätt ut.

Permalänk: https://www.webforum.nu/p/253422

## #5 — AG, 2001-01-04T07:47Z

Baah, den fanns där, blev nåt fel när jag klippte in det, så det kan inte vara det, är nåt annat.

Föresten varför fungerar det inte att bara sätta Scripting.Timeout = 3600
i toppen av sidan, elelr heter det nåt annat?
r
sökte igen och hittade en tråd där du hade svarat på det, om det var
server.scripttimeout = 3600 vill säga
/r

Andreas

\[Redigerat av AG den 04 jan 2001\]

Permalänk: https://www.webforum.nu/p/253423

## #6 — @nders, 2001-01-04T08:18Z

hoa, då ser jag inte mycket annat...

den kan väl inte bråka på att man inte får börja en mening med 'som' :q ;)

jag ska fundera lite...

Permalänk: https://www.webforum.nu/p/253424

## #7 — AG, 2001-01-06T12:20Z

Detta kan kanske hjälpa lite mer, det är hela den aktiva koden som arbetar mot formuläret.

```
<% 
If request.querystring("val")= "uppdateraskarmdump"  then 
' Author Philippe Collignon
' Email PhCollignon@email.com
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

'email = UploadRequest.Item("email").Item("Value")

for each fobj in UploadRequest
if UploadRequest.Item(fobj).Item("FileName")<>"" then
contentType = UploadRequest.Item(fobj).Item("ContentType")
filepathname = UploadRequest.Item(fobj).Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item(fobj).Item("Value")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename)
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("\"&filename))
'response.write(Server.mappath(filename)) 

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close

end if
next

SQL = "SELECT * FROM Skarmdumpar Where id = "& CInt(UploadRequest.Item("id").Item("Value"))
Set rs = Connection.Execute(SQL) 

if rs("introbild") = "" then
introb = UploadRequest.Item("introb").Item("FileName")
introb = Right(introb,Len(introb)-InstrRev(introb,"\"))
else
introb = rs("introbild")
end if
if rs("sscreen1") = "" then
file1 = UploadRequest.Item("file1").Item("FileName")
file1 = Right(file1,Len(file1)-InstrRev(file1,"\"))
else
file1 = rs("sscreen1")
end if
if rs("sscreen2") = "" then
file2 = UploadRequest.Item("file2").Item("FileName")
file2 = Right(file2,Len(file2)-InstrRev(file2,"\"))
else
file2 = rs("sscreen2")
end if
if rs("sscreen3") = "" then
file3 = UploadRequest.Item("file3").Item("FileName")
file3 = Right(file3,Len(file3)-InstrRev(file3,"\"))
else
file3 = rs("sscreen3")
end if
if rs("sscreen4") = "" then
file4 = UploadRequest.Item("file4").Item("FileName")
file4 = Right(file4,Len(file4)-InstrRev(file4,"\"))
else
file4 = rs("sscreen4")
end if
if rs("sscreen5") = "" then
file5 = UploadRequest.Item("file5").Item("FileName")
file5 = Right(file5,Len(file5)-InstrRev(file5,"\"))
else
file5 = rs("sscreen5")
end if
if rs("sscreen6") = "" then
file6 = UploadRequest.Item("file6").Item("FileName")
file6 = Right(file6,Len(file6)-InstrRev(file6,"\"))
else
file6 = rs("sscreen6")
end if

if rs("screen1") = "" then
file7 = UploadRequest.Item("file7").Item("FileName")
file7 = Right(file7,Len(file7)-InstrRev(file7,"\"))
else
file7 = rs("screen1")
end if
if rs("screen2") = "" then
file8 = UploadRequest.Item("file8").Item("FileName")
file8 = Right(file8,Len(file8)-InstrRev(file8,"\"))
else
file8 = rs("screen2")
end if
if rs("screen3") = "" then
file9 = UploadRequest.Item("file9").Item("FileName")
file9 = Right(file9,Len(file9)-InstrRev(file9,"\"))
else
file9 = rs("screen3")
end if
if rs("screen4") = "" then
file10 = UploadRequest.Item("file10").Item("FileName")
file10 = Right(file10,Len(file10)-InstrRev(file10,"\"))
else
file10 = rs("screen4")
end if
if rs("screen5") = "" then
file11 = UploadRequest.Item("file11").Item("FileName")
file11 = Right(file11,Len(file11)-InstrRev(file11,"\"))
else
file11 = rs("screen5")
end if
if rs("screen6") = "" then
file12 = UploadRequest.Item("file12").Item("FileName")
file12 = Right(file12,Len(file12)-InstrRev(file12,"\"))
else
file12 = rs("screen6")
end if

SQLStmt = "UPDATE Skarmdumpar SET " 
SQLstmt = SQLstmt & "Rubrik = '" & UploadRequest.Item("rubrik").Item("Value") & "', "
SQLstmt = SQLstmt & "Introbild = '" & introb & "', "
SQLstmt = SQLstmt & "Sscreen1 = '" & file1 & "', "
SQLstmt = SQLstmt & "Sscreen2 = '" & file2 & "', "
SQLstmt = SQLstmt & "Sscreen3 = '" & file3 & "', "
SQLstmt = SQLstmt & "Sscreen4 = '" & file4 & "', "
SQLstmt = SQLstmt & "Sscreen5 = '" & file5 & "', "
SQLstmt = SQLstmt & "Sscreen6 = '" & file6 & "', "
SQLstmt = SQLstmt & "Screen1 = '" & file7 & "', "
SQLstmt = SQLstmt & "Screen2 = '" & file8 & "', "
SQLstmt = SQLstmt & "Screen3 = '" & file9 & "', "
SQLstmt = SQLstmt & "Screen4 = '" & file10 & "', "
SQLstmt = SQLstmt & "Screen5 = '" & file11 & "', "
SQLstmt = SQLstmt & "Screen6 = '" & file12 & "', "
SQLstmt = SQLstmt & "[Text] = '" & UploadRequest.Item("infotext").Item("Value") & "', "
SQLstmt = SQLstmt & "Email = '" & UploadRequest.Item("email").Item("Value") & "', "
SQLstmt = SQLstmt & "Skribent = '" & UploadRequest.Item("skribent").Item("Value") & "'"
SQLStmt = SQLStmt & " where id =" & CInt(rs("id"))
response.write sqlstmt
Connection.Execute(SQLstmt)

rs.close
set rs = nothing

response.redirect ("inloggad.asp")
end if
```

Andreas

Permalänk: https://www.webforum.nu/p/253425

## #8 — AG, 2001-01-06T22:12Z

Då var det löst, detta var ett riktit amatör problem. Jag hade i min iver förbisett att fältet hette "Epost" inte "Email". Det var, som ni säkert förstår, inget ni hade kunnat lista ut.

Men nu är det löst iaf, tack för hjälpen.

Andreas

Permalänk: https://www.webforum.nu/p/253426

---

Tråden på webben: https://www.webforum.nu/amne/asp/7616-parameter-strul