Intern serverfejl ? hvad er der galt

Prøv at slå "Show friendly HTTP error messages" fra i Tools > Internet Options > Advanced.

Hvilken fejl får du så?

strSQL = strSQL & "'upload.Files("foto1").ExtractFilename & "','"

skal nok være

strSQL = strSQL & "'" & upload.Files("foto1").ExtractFilename & "','"

og tilsvarende: fjern det " foran upload.Form

Ja, whatever, eller brug en anden browser end IE.

ok det fik mig lidt længere, tak
MEN nu får jeg en "Data type mismatch in criteria expression"
kan det have noget med mine ja/nej boxe at gøre (checkboxe)
fx:
strSQL = strSQL & "upload.Form("grill") & "','"
strSQL = strSQL & "upload.Form("microovn") & "','"
strSQL = strSQL & "upload.Form("emhette") & "','"
strSQL = strSQL & "upload.Form("koleskab") & "','"
strSQL = strSQL & "upload.Form("fryser") & "','"

I alle linjer skal du havde " væk foran upload.form

eks:
strSQL = strSQL & "upload.Form("tekstdansk") & "','"

Sådan her:
strSQL = strSQL & upload.Form("tekstdansk") & "','"

Hvis der er nogle felter som er tal kolonner så skal der ikke ' omkring som med tekst.
Hvis du har Ja/Nej felter skal det være det samme som med tal. Og så skal du tjekke på om den der er kryds i den da man ikke får true/false om den er valgt men den værdi der er angivet i VALUE på checkboxen:

if upload.Form("microovn") = "" then
  microovn = false
else
  microovn = true
end if


i SQL'en bliver det så:

strSQL = strSQL & upload.Form("grill") & "',"
strSQL = strSQL & microovn & ",'"

Prøv at lave den value del lidt om så du har ' på samme linje som de data de er omkring og ikke på linjen over Eks:

Dette:
strSQL = strSQL & "upload.Form("prisd") & "','"
strSQL = strSQL & "upload.Form("prise") & "','"

Til:
strSQL = strSQL & "'" & upload.Form("prisd") & "',"
strSQL = strSQL & "'" & upload.Form("prise") & "',"

Så er det lettere at ændre og overskue om der er ' rigtigt sat ind.

dvs:

' alm text box
strSQL = strSQL & "'" & upload.Form("ejeremail") & "',"

' Checkbox (ja/nej)
strSQL = strSQL & upload.Form("dk") & ","

???

Undskyld sådan :

' alm text box
strSQL = strSQL & "'" & upload.Form("ejeremail") & "',"

' Checkbox (ja/nej)
if upload.Form("dk") = "" then dk= false
strSQL = strSQL & upload.Form("dk") & ","


???

Undskyld igen  sådan :

' alm text box
strSQL = strSQL & "'" & upload.Form("ejeremail") & "',"

' Checkbox (ja/nej)
if upload.Form("dk") = ""
then dk = 0
else dk = 1
strSQL = strSQL & dk & ","


???

Checkbox skal lvaes sådan her:


' Checkbox (ja/nej)
dk = true
if upload.Form("dk") = "" then dk= false
strSQL = strSQL & dk & ","

ok nu bliver jeg lidt strid, men jeg forhøjer til 200 point hvis du kan se fejlen  og hjælpe mig med at få den til at virke :-)

fejl jeg får nu :

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression ''fzs,'0','0','0','0','0','asdfg','asdfg','dfg','sdfg','sdfg','sdf','sdfsg','sdf','gsdfg',True,True,True,'sdf','sdf')'.

sådan ser min kode nu ud : ->

strSQL = "Insert into sommerhuse ("

strSQL = strSQL & "foto1, "
strSQL = strSQL & "foto2, "
strSQL = strSQL & "foto3, "
strSQL = strSQL & "foto4, "
strSQL = strSQL & "foto5, "
strSQL = strSQL & "foto6, "
strSQL = strSQL & "tekstdansk, "
strSQL = strSQL & "teksttysk, "
strSQL = strSQL & "tekstengelsk, "
strSQL = strSQL & "omrade, "
strSQL = strSQL & "varelser, "
strSQL = strSQL & "strand, "
strSQL = strSQL & "kobmand, "
strSQL = strSQL & "parabol, "
strSQL = strSQL & "stereo, "
strSQL = strSQL & "tv, "
strSQL = strSQL & "uterrasse, "
strSQL = strSQL & "oterrasse, "
strSQL = strSQL & "havemobler, "
strSQL = strSQL & "grill, "
strSQL = strSQL & "microovn, "
strSQL = strSQL & "emhette, "
strSQL = strSQL & "koleskab, "
strSQL = strSQL & "fryser, "
strSQL = strSQL & "opvaskemaskine, "
strSQL = strSQL & "komfur, "
strSQL = strSQL & "kaffemaskine, "
strSQL = strSQL & "elkeddel, "
strSQL = strSQL & "bruseniche, "
strSQL = strSQL & "spabad, "
strSQL = strSQL & "sauna, "
strSQL = strSQL & "gulvvarme, "
strSQL = strSQL & "brandeovn, "
strSQL = strSQL & "elradiator, "
strSQL = strSQL & "husdyr, "
strSQL = strSQL & "solarie, "
strSQL = strSQL & "telefon, "
strSQL = strSQL & "havfjordudsigt, "
strSQL = strSQL & "babyseng, "
strSQL = strSQL & "babystol, "
strSQL = strSQL & "upool, "
strSQL = strSQL & "ipool, "
strSQL = strSQL & "torretumbler, "
strSQL = strSQL & "vaskemaskine, "
strSQL = strSQL & "sommerhusomrade, "
strSQL = strSQL & "prisa, "
strSQL = strSQL & "prisb, "
strSQL = strSQL & "prisc, "
strSQL = strSQL & "prisd, "
strSQL = strSQL & "prise, "
strSQL = strSQL & "husadresse, "
strSQL = strSQL & "huspostnummer, "
strSQL = strSQL & "husby, "
strSQL = strSQL & "ejernavn, "
strSQL = strSQL & "ejeradresse, "
strSQL = strSQL & "ejerpostnummer, "
strSQL = strSQL & "ejerby, "
strSQL = strSQL & "ejertelefonnummer, "
strSQL = strSQL & "ejeremail, "
strSQL = strSQL & "dk, "
strSQL = strSQL & "gb, "
strSQL = strSQL & "d, "
strSQL = strSQL & "sommerhuslink, "
strSQL = strSQL & "kodeord)"

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & upload.Files("foto1").ExtractFilename & "',"
strSQL = strSQL & "'" & upload.Files("foto2").ExtractFilename & "',"
strSQL = strSQL & "'" & upload.Files("foto3").ExtractFilename & "',"
strSQL = strSQL & "'" & upload.Files("foto4").ExtractFilename & "',"
strSQL = strSQL & "'" & upload.Files("foto5").ExtractFilename & "',"
strSQL = strSQL & "'" & upload.Files("foto6").ExtractFilename & "',"
strSQL = strSQL & "'" & upload.Form("tekstdansk") & "',"
strSQL = strSQL & "'" & upload.Form("teksttysk") & "',"
strSQL = strSQL & "'" & upload.Form("tekstengelsk") & "',"
strSQL = strSQL & "'" & upload.Form("omrade") & "',"
strSQL = strSQL & "'" & upload.Form("varelser")  & "',"
strSQL = strSQL & "'" & upload.Form("strand") & "',"
strSQL = strSQL & "'" & upload.Form("kobmand") & "',"


parabol= true
if upload.Form("parabol") = "" then parabol= false
strSQL = strSQL & parabol & ","

stereo= true
if upload.Form("stereo") = "" then stereo= false
strSQL = strSQL & stereo & ","

tv= true
if upload.Form("tv") = "" then tv= false
strSQL = strSQL & tv & ","

uterrasse= true
if upload.Form("uterrasse") = "" then uterrasse= false
strSQL = strSQL & uterrasse & ","

oterrasse= true
if upload.Form("oterrasse") = "" then oterrasse= false
strSQL = strSQL & oterrasse& ","

havemobler= true
if upload.Form("havemobler") = "" then havemobler= false
strSQL = strSQL & havemobler& ","

grill= true
if upload.Form("grill") = "" then grill= false
strSQL = strSQL & grill& ","

microovn= true
if upload.Form("microovn") = "" then microovn= false
strSQL = strSQL & microovn& ","

emhette= true
if upload.Form("emhette") = "" then emhette= false
strSQL = strSQL & emhette& ","

koleskab= true
if upload.Form("koleskab") = "" then koleskab= false
strSQL = strSQL & koleskab& ","

fryser= true
if upload.Form("dfryserk") = "" then fryser= false
strSQL = strSQL & fryser& ","

opvaskemaskine= true
if upload.Form("opvaskemaskine") = "" then opvaskemaskine= false
strSQL = strSQL & opvaskemaskine& ","

komfur= true
if upload.Form("komfur") = "" then komfur= false
strSQL = strSQL & komfur& ","

kaffemaskine= true
if upload.Form("kaffemaskine") = "" then kaffemaskine= false
strSQL = strSQL & kaffemaskine& ","

elkeddel= true
if upload.Form("elkeddel") = "" then elkeddel= false
strSQL = strSQL & elkeddel& ","

bruseniche= true
if upload.Form("bruseniche") = "" then bruseniche= false
strSQL = strSQL & bruseniche& ","

spabad= true
if upload.Form("spabad") = "" then spabad= false
strSQL = strSQL & spabad& ","

sauna= true
if upload.Form("sauna") = "" then sauna= false
strSQL = strSQL & sauna& ","

gulvvarme= true
if upload.Form("gulvvarme") = "" then gulvvarme= false
strSQL = strSQL & gulvvarme& ","

brandeovn= true
if upload.Form("brandeovn") = "" then brandeovn= false
strSQL = strSQL & brandeovn& ","

elradiator= true
if upload.Form("elradiator") = "" then elradiator= false
strSQL = strSQL & elradiator& ","

husdyr= true
if upload.Form("husdyr") = "" then husdyr= false
strSQL = strSQL & husdyr& ","

solarie= true
if upload.Form("solarie") = "" then solarie= false
strSQL = strSQL & solarie& ","

telefon= true
if upload.Form("telefon") = "" then telefon= false
strSQL = strSQL & telefon& ","

havfjordudsigt= true
if upload.Form("havfjordudsigt") = "" then havfjordudsigt= false
strSQL = strSQL & havfjordudsigt& ","

babyseng= true
if upload.Form("babyseng") = "" then babyseng= false
strSQL = strSQL & babyseng& ","

babystol= true
if upload.Form("babystol") = "" then babystol= false
strSQL = strSQL & babystol& ","

upool= true
if upload.Form("upool") = "" then upool= false
strSQL = strSQL & upool& ","

ipool= true
if upload.Form("ipool") = "" then ipool= false
strSQL = strSQL & ipool& ","

torretumbler= true
if upload.Form("torretumbler") = "" then torretumbler= false
strSQL = strSQL & torretumbler& ","

vaskemaskine= true
if upload.Form("vaskemaskine") = "" then vaskemaskine= false
strSQL = strSQL & vaskemaskine& ","

strSQL = strSQL & "'" & upload.Form("sommerhusomrade") & ","
strSQL = strSQL & "'" & upload.Form("prisa") & "',"
strSQL = strSQL & "'" & upload.Form("prisb") & "',"
strSQL = strSQL & "'" & upload.Form("prisc") & "',"
strSQL = strSQL & "'" & upload.Form("prisd") & "',"
strSQL = strSQL & "'" & upload.Form("prise") & "',"
strSQL = strSQL & "'" & upload.Form("husadresse") & "',"
strSQL = strSQL & "'" & upload.Form("huspostnummer") & "',"
strSQL = strSQL & "'" & upload.Form("husby") & "',"
strSQL = strSQL & "'" & upload.Form("ejernavn") & "',"
strSQL = strSQL & "'" & upload.Form("ejeradresse") & "',"
strSQL = strSQL & "'" & upload.Form("ejerpostnummer") & "',"
strSQL = strSQL & "'" & upload.Form("ejerby") & "',"
strSQL = strSQL & "'" & upload.Form("ejertelefonnummer") & "',"
strSQL = strSQL & "'" & upload.Form("ejeremail") & "',"

dk= true
if upload.Form("dk") = "" then dk= false
strSQL = strSQL & dk& ","

gb= true
if upload.Form("gb") = "" then gb= false
strSQL = strSQL & gb& ","

d= true
if upload.Form("d") = "" then d= false
strSQL = strSQL & d& ","

strSQL = strSQL & "'" & upload.Form("sommerhuslink") & "',"
strSQL = strSQL & "'" & upload.Form("kodeord") & "')"


' SQL sætning eksekveres
Conn.Execute(strSQL)

I denne linje er der enten et ' formeget i starten eller mangler der et før ,:

strSQL = strSQL & "'" & upload.Form("sommerhusomrade") & ","

:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
:-)
sådan nu virker det 10000000 tak for hjælpen

ups jeg glemte vist noget :-)

http://www.eksperten.dk/spm/329637