Wenn man einer anderen Seite Daten übergeben muss, kann man dies mit dem Querystring Objekt tun. Hierbei werden die Daten im Gegensatz zu POST sichtbar übertragen. Zur einfachen Überprüfung der E-Mail verwenden wir Regular Expression.
Dim strUrl As String
Dim strRegex As String = “\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*”
strUrl += ”http://anderedomain12.info/webanmeldung.aspx?”
strUrl += “kundenid=76″
strUrl += “&email=” & Me.txtemail.Text
Dim strRegex As String = “\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*”
strUrl += ”http://anderedomain12.info/webanmeldung.aspx?”
strUrl += “kundenid=76″
strUrl += “&email=” & Me.txtemail.Text
Dim reg_exp As New Regex(strRegex)
If reg_exp.IsMatch(Me.txtemail.Text) Then
Me.txtemail.Text = ”"
Response.Redirect(strUrl)
Else
Me.lblemail.Text = “fehlerhafte E-Mailadressse”
End If
Noch ein Tipp: Sollte Sie beim Abfragen eines Querystrings nicht wissen welche Felder übergeben werden, können Sie einfach durch den Querystring loopen.
for i=1 to Request.QueryString(“n”).Count
Response.Write(Request.QueryString(“n”)(i) & “<br />”)
next