13. august 2002 - 15:41Der er
3 kommentarer og 1 løsning
Replace?!?
Hvordan laver jeg en replace på de variabler der står i If, Then, Else sætningerne
varNavn = Request.Form("navn") varAdresse = Request.Form("adresse") varPost = Request.Form("post") varBy = Request.Form("by") If Request.Form("email") = "" Then varEmail = "Ingen Email" Else varEmail = Request.Form("email") End If If Request.Form("telefon") = "" Then varTelefon = "0" Else varTelefon = Request.Form("telefon") End If If Request.Form("kommentar") = "" Then varKommentar = "Ingen Kommentar" Else varKommentar = Request.Form("kommentar") End If
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Function unQuote(strTekst) strTekst = Trim(strTekst) unQuote = Replace(strTekst,"'","''") End Function
If unQuote(Request.Form("email")) = "" Then varEmail = "Ingen Email" Else varEmail = unQuote(Request.Form("email")) End If If unQuote(Request.Form("telefon")) = "" Then varTelefon = "0" Else varTelefon = unQuote(Request.Form("telefon")) End If If unQuote(Request.Form("kommentar")) = "" Then varKommentar = "Ingen Kommentar" Else varKommentar = unQuote(Request.Form("kommentar")) End If
If Trim(varEmail) = "" Then varEmail = "Ingen Email" End If If Trim(varTelefon) = "" Then varTelefon = "0" End If If Trim(varKommentar) = "" Then varKommentar = "Ingen Kommentar" End If
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
