Ok Well i wasnt really trying to show my code cause its might be embarassing....... Im going to be honest... Im new and the only way im gonna learn is if somebody shows me whats goin on. Here what i got:
<%@ Page Language="VB" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd
">
<script runat="server">
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim ABCdataSource As New SqlDataSource()
ABCdataSource.ConnectionString
= ConfigurationManager.Connection
Strings("ABCConnectionString1").ToString
ABCdataSource.InsertCommandType = SqlDataSourceCommandType.Text
ABCdataSource.InsertCommand = "INSERT INTO EmailID (EmailAddress) VALUES (@EmailAddress)"
ABCdataSource.InsertCommand = "INSERT INTO HandleID (HandleInput) VALUES (@Handle)"
ABCdataSource.InsertCommand = "INSERT INTO PasswordID (Password) VALUES (@Password)"
ABCdataSource.InsertCommand = "INSERT INTO DateTime (DateTime) VALUES (@DateTime)"
ABCdataSource.InsertCommand = "INSERT INTO IPAddress (IPAddress) VALUES (@IPAddress)"
ABCdataSource.InsertParameters.Add
("EmailAddress", EmailAddress.Text)
ABCdataSource.InsertParameters.Add("Handle", HandleInput.Text)
ABCdataSource.InsertParameters.Add("Password", Password.Text)
ABCdataSource.InsertParameters.Add("DateTime", DateTime.Now())
ABCdataSource.InsertParameters.Add("IPAddress", Request.UserHostAddress.ToString())
Dim rowsAffected As Integer = 0
Try
rowsAffected = ABCdataSource.Insert()
Catch ex As Exception
Server.Transfer("SignupFailed.aspx")
Finally
ABCdataSource = Nothing
??????? End Try
???????
??????? If rowsAffected <> 1 Then
??????????? Server.Transfer("SignupFailed.aspx")
??????? Else
??????????? Server.Transfer("ProfileDetailsPage.aspx")
\n??????? End If
End Sub
??? Protected Sub SqlDataSource1_Selecting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceSelectingEventArgs)
??? End Sub
<\u002fscript>
\n
--
",1]
);
D(["mb","
~[MikE]~\n\n
",0]
);
D(["ce"]);
//-->
End Try
If rowsAffected <> 1 Then
Server.Transfer("SignupFailed.aspx")
Else
Server.Transfer("ProfileDetailsPage.aspx")
End If
End Sub
Protected Sub SqlDataSource1_Selecting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceSelectingEventArgs)
End Sub
</script>