jag har stött på lite problem nu när jag ska göra ett formulär som ska in i en db.
Datumet måste skrivas in som yyyy-mm-dd, först började jag pilla med
f Not isnumeric("removedate") Then Response.Write"-The removal date must be yyyy-mm-dd<br>"
Men upptäckte ju att - tecknen i datumet inte fungerar i detta sammanhang. Hur ska jag gå till väga, någon som har ett liknande script, reg exp eller något. Antar att detta är ett vanligt förekommande problem, hittade inte något med sökfunktionen dock
Function noAlphMinus(ByVal sText)
Dim oRegExp
Set oRegExp = New RegExp
oRegExp.Pattern = "[^\d\-]"
oRegExp.Global = True
oRegExp.Execute(sText)
noAlphMinus = oRegExp.Replace(sText, "")
End Function
If NOT len(noAlphMinus("removedate")) = 10 Then Response.Write"-The removal date must be yyyy-mm-dd<br>"
sedan kan du ju kolla om det femte och 8:e tecknet är - också
Tack, provade på med @nders funktion...Jag har fått det att fungera nu, det var inte så svårt Men något som slog mig var att jag är rätt kass på felhantering av koll av formulär. Går det inte att göra denna kod på några andra enklare sätt, detta blir lätt en liten ful lösning.
If publishdate = "" OR removedate = "" OR content = "" OR header = "" Then
Response.Write"<b>The following field(s) where not entered :</b><br>"
If publishdate = "" then Response.Write "-You must enter a date for publishing<br>"
If removedate = "" then Response.Write "-You must enter a removal date<br>"
If Not removedate = "" Then
If Not Isdate(removedate) = true then Response.Write"-The removal date must be yyyy-mm-dd<br>"
End If
If Not publishdate = "" Then
If Not Isdate(publishdate) = true then Response.Write"-The publish date date must be yyyy-mm-dd<br>"
End If
If content = "" then Response.Write "-You must enter something in the contents field<br>"
If header = "" then Response.Write "-You must enter a header<br>"
Response.Write"<br><img src=""/bin/images/PilBack.gif""> <a href=""javascript:history.go(-1)"">Go Back</a>"