like this
Code:
date d,f; f = d.subtract ([I]timespane[/I]);
date d,f; f = d.subtract ([I]timespane[/I]);
Sub Main ()
Application.Run([I]youForm[/I])
End Sub
Set rcRecords = OpenRecordSet (sQuery, vbOpenSnapShot)
Public Sub UserMsgBox(ByVal sMsg As String, ByVal objPage As System.Web.UI.Page)
Dim sb As New StringBuilder
Dim oFormObject As System.Web.UI.Control
sMsg = sMsg.Replace("'", "\'")
sMsg = sMsg.Replace(Chr(34), "\" & Chr(34))
sMsg = sMsg.Replace(vbCrLf, "\n")
Leave a comment: