Hjælp til at indsætte apostroffer mm.

den er vist helt galt,
prøv at forklare hvad det er den skal,
og hvad dine kolonner hedder i din db, samt hvilken type det (tal eller tekst)

Sådan her:
<%
  test = "SELECT COUNT(*) AS AntalTilmeldte FROM TilmTab WHERE ("& Request.form("angiBy') &" <> 'koll' AND postnr <> 'koll) OR ("& Request.form("angiBy")&" = 'koll' AND postnr = 'koll)"
%>

angiBy=Request.form('angiBy')
postNr=Request.form('postnr')
test = "SELECT COUNT(*) AS AntalTilmeldte FROM TilmTab WHERE ("& angiBy &" <> 'koll' AND  "& postNr &" <> 'koll') OR ("& angiBy &" = 'koll' AND "& postnr &"= 'koll')"

Hvis du altså får postnr fra formen.
Hvis ikke er det bare at bruge moejensens forslag, men med en ' efter koll.

<%
Dim angiBy
Dim postnr

angiBy = Request.form("angiBy")
postNr = Request.form("postnr")

test = "SELECT COUNT(*) AS AntalTilmeldte FROM TilmTab WHERE '%" & angiBy & "%' <> 'koll' AND  '%" & postNr & "&' <> 'koll') OR ('%" & angiBy & "%' = 'koll' AND "& postnr &"= 'koll')"
%>

Cpufan, man kan vælge i mellem 4 byer i en formular. Hvis man vælger den ene skal der tælles hvor mange gange denne by er i databasen. Hvis man vælger en af de andre byer skal der tælles hvor mange gange den og de sidste to byer er i databasen.

moejensen, der er fejl ved
test = "SELECT COUNT(*) AS AntalTilmeldte FROM TilmTab WHERE ("& Request.form("angiBy') &" <> 'koll' AND

ved denne
("angiBy') &" <> 'koll'
-----------------^

Hov denne
'koll'
^

Hvis det er til at forstå

test = "SELECT COUNT(*) AS AntalTilmeldte FROM TilmTab WHERE ("& Request.form("angiBy') &" <> 'koll' AND postnr <> 'koll') OR ("& Request.form("angiBy")&" = 'koll' AND postnr = 'koll')"

test = "SELECT COUNT(*) AS AntalTilmeldte FROM TilmTab WHERE ("& Request.form('angiBy') &" <> 'koll' AND postnr <> 'koll') OR ("& Request.form('angiBy')&" = 'koll' AND postnr = 'koll')"

Nu skulle den være der ;o)

Det virker desværre ikke.

test = "SELECT COUNT(*) AS AntalTilmeldte FROM TilmTab WHERE ("& Request.form("angiBy') &" <> 'koll' AND postnr <> 'koll') OR ("& Request.form("angiBy")&" = 'koll' AND postnr = 'koll')"

set rs5 = server.createobject("adodb.connection")
rs5.open DSN
set rs5 = rs5.execute(test)
Response.Write AntalTilmeldte


michael_stim, postnr er fra databasen

Du må ikke have ", du skal have ' om ("angiBy"), ellers tror den, den afslutter stringen.

Kopier min kommentar: 21:39:23, så skulle den være der.

Og så skal det være:
Response.Write rs5("AntalTilmeldte")

du skal have ("angiBy"), når det er i asp, det er derfor der &""& om.

Hvad er det for en fejl du får?

("angiBy')<--Der er fejlen.

yep, så det må være

test = "SELECT COUNT(*) AS AntalTilmeldte FROM TilmTab WHERE ("& Request.form("angiBy") &" <> 'koll' AND postnr <> 'koll') OR ("& Request.form("angiBy")&" = 'koll' AND postnr = 'koll')"

set rs5 = server.createobject("adodb.connection")
rs5.open DSN
set rs5 = rs5.execute(test)
Response.Write rs5("AntalTilmeldte")

michael_stim, Der skal tælles hvor mange gange koll findes i databasen i kolonnen postnr.


moejensen, fejlen er

Microsoft VBScript compilation error '800a03ea'

Syntax error

/log/formsend.asp, line 64

Og så peger pilen som jeg forsøgte at vise før... men det gik vist ikke så godt :)

hvad står der i linie 64

kan vi ikke lige se hele din kode, for jeg tror også der er noget galt med din db forbindelse

Så forsvandt fejlen... men nu vises siden ikke.
Men ellers er linie 64 SQL-sætningen.

Hvis jeg sletter de 5 linier jeg har vist jer - virker det fint med at indsætte i databasen.

Jeg har lige ændre lidt, bare det ikke forvirre. F.eks er "angiBy" blevet til "postnr". Men her er koden.

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("skridtdb.mdb")
Conn.Open DSN

' SQL sætning opbygges
strSQL = "Insert into indtast ("

strSQL = strSQL & "UID, "
strSQL = strSQL & "IP, "
strSQL = strSQL & "dato, "
strSQL = strSQL & "fornavn, "
strSQL = strSQL & "efternavn, "
strSQL = strSQL & "alder, "
strSQL = strSQL & "koen, "
strSQL = strSQL & "vejnavn, "
strSQL = strSQL & "nummer, "
strSQL = strSQL & "postnr, "
strSQL = strSQL & "email) "

strSQL = strSQL & "values('"

strSQL = strSQL & VarUID & "', '"
strSQL = strSQL & VarIP & "', '"
strSQL = strSQL & Now & "', '"
strSQL = strSQL & Request.Form("fornavn") & "', '"
strSQL = strSQL & Request.Form("efternavn") & "', '"
strSQL = strSQL & Request.Form("alder") & "', '"
strSQL = strSQL & Request.Form("koen") & "', '"
strSQL = strSQL & Request.Form("vejnavn") & "', '"
strSQL = strSQL & Request.Form("nummer") & "', '"
strSQL = strSQL & Request.Form("postnr") & "', '"
strSQL = strSQL & Request.Form("email") & "')"

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


'Udtræk data om afhentningsted mm. fra formular.postnr
strSQL2 = "SELECT * FROM adresseliste WHERE postnr = '" & Request.Form("postnr") & "'"
set rs = conn.execute(strSQL2)

VarAdr = rs("gadenavn")
VarAabningstid = rs("tid")
VarAabningstid2 = rs("tid2")
VarAabningstid3 = rs("tid3")

'-------- T E S T-------------

test = "SELECT COUNT(*) AS AntalTilmeldte FROM indtast WHERE ("& Request.form("postnr") &" <> '5000' AND postnr <> '5000') OR ("& Request.form("postnr")&" = '5000' AND postnr = '5000')"
'test = "SELECT COUNT(*) AS AntalTilmeldte FROM TilmTab WHERE ("& Request.form("angiBy") &" <> 'koll' AND postnr <> 'koll') OR ("& Request.form("angiBy")&" = 'koll' AND postnr = 'koll')"
'test = "SELECT COUNT(*) AS AntalTilmeldte FROM TilmTab WHERE ("& Request.form("angiBy') &" <> 'koll' AND postnr <> 'koll') OR ("& Request.form("angiBy")&" = 'koll' AND postnr = 'koll')"
'test = "SELECT COUNT(*) AS AntalTilmeldte FROM TilmTab WHERE ("& Request.form("angiBy') &" <> 'koll' AND postnr <> 'koll) OR ("& Request.form("angiBy") &" = 'koll' AND postnr = 'koll)"
'test = "SELECT COUNT(*) AS AntalTilmeldte FROM TilmTab WHERE (Request.form('angiBy') <> 'koll' AND postnr <> 'koll) OR (Request.form('angiBy') = 'koll' AND postnr = 'koll)"


'test = "SELECT COUNT(*) AS AntalTilmeldte FROM TilmTab WHERE ("& Request.form("angiBy') &" <> 'koll' AND postnr <> 'koll') OR ("& Request.form("angiBy")&" = 'koll' AND postnr = 'koll')"

set rs5 = server.createobject("adodb.connection")
rs5.open DSN
set rs5 = rs5.execute(test)

Response.Write rs5("AntalTilmeldte")


'//////-------- T E S T--------


' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>


<%
'MAIL - MAIL - MAIL - MAIL - MAIL

Ja, det er selvfølgelig kun den øverst af test-sætningerne der skal bruges... det blev lidt rodet.

okay, jeg troede ikke det ville volde de store problemer da sætningen så meget rigtig ud. Men jeg synes jeg vil hæve pointne lidt.

'test = "SELECT COUNT(*) AS AntalTilmeldte FROM TilmTab WHERE ("& Request.form("angiBy') &" <> 'koll' AND postnr <> 'koll') OR ("& Request.form("angiBy")&" = 'koll' AND postnr = 'koll')"

Giver i hvert tilfælde ikke mening,
da du vil tælle records der er forskellig fra 'koll' og records der er lig 'koll'
dermed tæller du blot alle records.

Men ydermere tror jeg ikke du har nogle records i din tabel hverken i kolonnen [by], eller postnr der hedder koll.

hvad er koll ?

koll er et fiktivt bynavn. Værdierne i databasen skulle gerne passe, så man kunne få et resultat.
Det der gerne skulle ske er at hvis man i formularen har valgt koll ved "angiBy", skal der tælles alle records hvor koll står i kolonnen "postnr" i databasen.
Hvis man ikke har valgt koll i "angiBy" i formularen, skal der tælles alle records hvor koll ikke indgår.

Request.form("angiBy') har jeg ændret til Request.form("postnr")
koll er ændret til 5000

Men det skulle gerne give samme resultat.

jeg er stadig lidt forvirret men denne

test = "SELECT COUNT(*) AS AntalTilmeldte FROM TilmTab WHERE postnr =" & request("postnr")

returner antal poster der er lig med det valgte postnr. hvis dit kolonnenavn i tabellen hedder postnr og er af typen tal.

Hvor opstår koll henne, er det noget du skriver et sted? eller er det en variabel du laver.

koll (som er ændret til 5000 nu) er en valgmulighed i formularen som folk skal vælge. Den er lavet i en dropdown som hedder postnr, og denne værdi skal ved hjælp af Request.form("postnr") tjekke hvor mange andre der har valgt denne by.
Hvis man ikke har valgt 5000, skal der tjekkes hvor mange gange de andre byer har været valgt til sammen.

if request("postnr") = 5000 then
test = "SELECT COUNT(*) AS AntalTilmeldte FROM TilmTab WHERE postnr =" & request("postnr")
else
test = "SELECT COUNT(*) AS AntalTilmeldte FROM TilmTab WHERE postnr <> 5000"
end if

Med denne får jeg "Siden kan ikke vises"

if Request.form("postnr") = 5000 then
test = "SELECT COUNT(*) AS AntalTilmeldte FROM indtast WHERE postnr = 5000"
'test = "SELECT COUNT(*) AS AntalTilmeldte FROM indtast WHERE postnr =" & Request.form("postnr")
else
test = "SELECT COUNT(*) AS AntalTilmeldte FROM indtast WHERE postnr <> 5000"
end if

set rs5 = server.createobject("adodb.connection")
rs5.open DSN
set rs5 = rs5.execute(test)
Response.Write rs5("AntalTilmeldte")

Så lykkes det, med denne kode:
test = "SELECT COUNT(*) AS AntalTilmeldte FROM indtast WHERE ('" & Request.form("postnr") & "' <> '5000' AND postnr <> '5000') OR ('" & Request.form("postnr") & "' = '5000' AND postnr = '5000')"

Da I har brugt lang tid på at hjælpe mig, vil jeg gerne have i lige ligger et svar, så i kan få lidt point som tak.

svar fra mig

//cpufan

OK.