Tekst med \" og \'

Bruge 2 \" efter hinanden for \" i en streng: \"\"

InStr(1, request.form(\"form\"), \"\"\"\", VBTextCompare)

\' er SQL hvor man laver 1 \' om til 2 \' : \'\'

InStr(1, request.form(\"form\"), \"\'\", VBTextCompare)

\" er ikke et reservert asp tegn...overhodet ikke

hvilket problem får du, har du noe spesifikk kode å vise oss ?

Skriv således:

text = Replace (Request.Form(\"form\"),\"\'\",\"\'\'\")
Dette vil løse problemet når du indsætter data.

Jeg har en form hvor værdien skal bruges til at oprette en mappe på serveren
en mappe må ikke indeholde \"\'<>/\\?|*

hvad er det smarteste hvis jeg skal tjekke om formfeltet indeholder disse tegn?

If request.form(\"subdomain\") = \"\" then
      Fail = \"Du skal indtaste et subdomain<br>\"
Elseif InStr(1, request.form(\"subdomain\"), \"\\\", VBTextCompare) or InStr(1, request.form(\"subdomain\"), \"/\", VBTextCompare) or InStr(1, request.form(\"subdomain\"), \":\", VBTextCompare) or InStr(1, request.form(\"subdomain\"), \"*\", VBTextCompare) or InStr(1, request.form(\"subdomain\"), \"?\", VBTextCompare) or InStr(1, request.form(\"subdomain\"), \"<\", VBTextCompare) or InStr(1, request.form(\"subdomain\"), \">\", VBTextCompare) or InStr(1, request.form(\"subdomain\"), \"|\", VBTextCompare) <> 0 then
Fail = Fail & \"Subdomain må ikke indeholde følgende tegn  \\/:*?<>|\'<br>\"
Elseif subdomain = false then
    Fail = Fail & \"Subdomain er optaget, prøv et andet<br>\"
end if

Lave en function:

Function badCharInString(strInput)
  Set objRegPath = New RegExp
  objRegPath.Global = true
  objRegPath.IgnoreCase = True

  objRegPath.Pattern = \"[\\\\\\/\\*<>:\"\"\\?]\"
  retVal = objRegPath.Test(strInput)

  Set objRegPath = Nothing
  badCharInString = retVal
End Function


if badCharInString(request.form(\"subdomain\") then
  Fail = fail & \"Subdomain må ikke indeholder ......
endif


du kan tilføje karater som ikke må være med:
objRegPath.Pattern = \"[\\\\\\/\\*<>:\"\"\\?]\"

med dette kan den ikke åbne siden

InStr(1, request.form(\"form\"), \"\'\", VBTextCompare)

underligt....
har du <> 0 med?

eagleeye
jar har <> 0 med!
hvad skal jeg skrive i denne hvis tegnet \' ikke må være med
objRegPath.Pattern = \"[\\\\\\/\\*<>:\"\"\\?]\"

jeg kan godt få det til at virke med \" men ikke med \'

Jeg undre mig for det ikke virker med \' for det virker på min !?? så prøv med denne:

InStr(1, request.form(\"subdomain\"), Chr(39), VBTextCompare) <> 0

Chr(39) svare til \'.

nu kan jeg delvist godt få det til at virke med

objRegPath.Pattern = \"[\\/\\Chr(39)*<>:\"\"?]\"

men hvis jeg kun skriver \' som det eneste så godtager funktionen det, hvor ellers hvis jeg skriver test\' godtager den det ikke

i reg pattern:
\\\\ betyder \\
\\/ betyder /
\\? betyder ?
\\* betyder *

objRegPath.Pattern = \"[\\\\\\/\\*\'<>:\"\"\\?]\"

hvilke tegn skal jeg bruge ved

??????? betyder Chr(39)

ok dumt spørgsmål? det har du jo ligesom vist med objRegPath.Pattern = \"[\\\\\\/\\*\'<>:\"\"\\?]\"

Det virker :)

Denne her viker på min:
objRegPath.Pattern = \"[\\\\\\/\\*\'<>:\"\"\\?]\"

Det skulle ikke være nøsvendigt at bruge chr(39). chr(39) er det samme som \'

det er det heller ikke.

det virker!

Jeg er glad for at netop du er god til at besvare mine spørgsmål, og nu du er i gang http://www.eksperten.dk/spm/135887


:)