Inlogsysteem

[Verwijderd]

Hoi Mensen,

misschien is het een stomme vraag en is er wel een heel makkelijk antwoord op, maar ik ben dan ook pas net begonnen met programmeren en loop op dit moment even vast.

Misschien dat jullie me kunnen helpen met onderstaande foutmelding:

Compiler Error Message: BC30205: End of statement expected.

Source Error:


Line 4: Sub LoginBtn_Click(Sender As Object, E As EventArgs)
Line 5:
Line 6: If Page.IsValid {
Line 7:
Line 8: System.Data.DataSet userDS = new System.Data.DataSet();

Het script is als volgt:

<script runat="server">

Sub LoginBtn_Click(Sender As Object, E As EventArgs)

If Page.IsValid {

System.Data.DataSet userDS = new System.Data.DataSet();
userDS = GetUser(UserName.Text, UserPass.Text);

if (userDS.Tables[0].Rows.Count == 1) {
Session["userid"] = userDS.Tables[0].Rows[0].ItemArray[0];
FormsAuthentication.RedirectFromLoginPage(UserName.Text, false);
}

Else
Msg.Text = "Foute combinatie: Probeer het nog eens!"
End If
End If

End Sub
Function GetUser(ByVal inlognaam As String, ByVal wachtwoord As String) As System.Data.DataSet
Dim connectionString As String = "server='cosworth'; user id='sa'; password='$sa$'; database='ARBO'"
Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)

Dim queryString As String = "SELECT [tblRelaties].* FROM [tblRelaties] WHERE (([tblRelaties].[Inlognaam] = @In"& _
"lognaam) AND ([tblRelaties].[Wachtwoord] = @Wachtwoord))"
Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection

Dim dbParam_inlognaam As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
dbParam_inlognaam.ParameterName = "@Inlognaam"
dbParam_inlognaam.Value = inlognaam
dbParam_inlognaam.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_inlognaam)
Dim dbParam_wachtwoord As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
dbParam_wachtwoord.ParameterName = "@Wachtwoord"
dbParam_wachtwoord.Value = wachtwoord
dbParam_wachtwoord.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_wachtwoord)

Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.SqlClient.SqlDataAdapter
dataAdapter.SelectCommand = dbCommand
Dim dataSet As System.Data.DataSet = New System.Data.DataSet
dataAdapter.Fill(dataSet)

Return dataSet
End Function

</script>

Groeten, Arjan

[whoami]

}

[gorgi_19]

Zie whoami, je beeindigd een functie niet. Ik heb je gisteren op de Quickstart gewezen voor wat we verwachten aan titel en opmaak van een topic, qua [code][/code] tags.

Sowieso gaan we jouw code niet voor je debuggen; dat is iets wat je zelf kan.