Hi Liste,
w�rde programm teile die ich gemacht habe nun in asp+ convertieren, wie
bekomme ich diesen code, der subroutines darstellt in c# format?
'*******************************************************************
'* Sub1. *
'*******************************************************************
Sub openconn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open gstrConnectToDatabase
End Sub
'*******************************************************************
'* Sub2. *
'*******************************************************************
Sub closeconn
objConn.Close
Set objConn = Nothing
End Sub
'*******************************************************************
'* Sub3. *
'*******************************************************************
Function ValidateEmail(strEmailAddress)
Dim intNumberFound, x, y
ValidateEmail = 0
intNumberFound = 0
If Mid(strEmailAddress, 1, 1) = "@" Then
ValidateEmail = 1
End If
For x = 1 To Len(strEmailAddress)
If Mid(strEmailAddress, x, 1) = "@" Then
intNumberFound = intNumberFound + 1
End if
Next 'x
If intNumberFound <> 1 Then
ValidateEmail = 1
End If
If InStr(strEmailAddress, ".") = 0 Then
ValidateEmail = 1
End If
If InStrRev(strEmailAddress, ".") < InStrRev(strEmailAddress, "@") Then
ValidateEmail = 1
End If
End Function
'*******************************************************************
'* Sub4. *
'*******************************************************************
Function ValidateAlphaNumeric(strAlphaNumber)
Dim z
ValidateAlphaNumeric = 0
For z = 1 To Len(strAlphaNumber)
If NOT IsNumeric(Mid(strAlphaNumber, z, 1)) Then
If Asc(UCase(Mid(strAlphaNumber, z, 1))) < 65 OR
Asc(UCase(Mid(strAlphaNumber, z, 1))) > 90 Then
ValidateAlphaNumeric = 1
End If
End If
Next 'z
End Function
'*******************************************************************
'* sub5. *
'*******************************************************************
Function MakeKey(intStringSize)
Dim i
MakeKey = ""
Randomize
For i = 1 to intStringSize
MakeKey = MakeKey & Int((30001 - 11000) * Rnd + 11000) & "s"
Next
End Function
w�re f�r jeden vorschlag dankbar :-/
MfG
Christian
| [aspdedotnet] als [email protected] subscribed
| http://www.dotnetgerman.com/archiv/aspdedotnet/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.dotnetgerman.com/listen/aspDEdotnet.asp
