feelgood

<% If Request.Form("Username") = "" Then Response.Redirect("eintrag/Form-VOP71-kf-login.asp?Invalid=2") End If %> <% 'Session-Variablen übernehmen Session("Username") = Request.Form("Username") Session("Password") = Request.Form("Password") Dim adoConnnection Dim strSQL Dim CheckAccess Dim strConn Dim PWInvalid Dim AccessInvalid Dim CheckPW Dim K1 Dim K2 Set rs = Server.CreateObject("ADODB.Recordset") strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("eintrag/db-Bef.mdb") CheckPW = "Select * from Tab3Faktoren50 where Benutzername = '" & Session("Username") & "' and PW = '" & Session("Password")& "'" 'Response.Write(CheckPW ) Set adoConnnection= Server.CreateObject("ADODB.Connection") rs.Open CheckPW, strConn PWInvalid = 0 do until rs.EOF ID = rs.Fields.Item("ID") Benutzername = rs.Fields.Item("Benutzername") PW = rs.Fields.Item("PW") K1 = rs.Fields.Item("K1") K2 = rs.Fields.Item("K2") K3 = rs.Fields.Item("K3") K4 = rs.Fields.Item("K4") K5 = rs.Fields.Item("K5") K6 = rs.Fields.Item("K6") K7 = rs.Fields.Item("K7") K8 = rs.Fields.Item("K8") K9 = rs.Fields.Item("K9") K10 = rs.Fields.Item("K10") K11 = rs.Fields.Item("K11") K12 = rs.Fields.Item("K12") K13 = rs.Fields.Item("K13") K14 = rs.Fields.Item("K14") K15 = rs.Fields.Item("K15") K16 = rs.Fields.Item("K16") K17 = rs.Fields.Item("K17") K18 = rs.Fields.Item("K18") K19 = rs.Fields.Item("K19") K20 = rs.Fields.Item("K20") K21 = rs.Fields.Item("K21") K22 = rs.Fields.Item("K22") K23 = rs.Fields.Item("K23") K24 = rs.Fields.Item("K24") K25 = rs.Fields.Item("K25") K26 = rs.Fields.Item("K26") K27 = rs.Fields.Item("K27") K28 = rs.Fields.Item("K28") K29 = rs.Fields.Item("K29") K30 = rs.Fields.Item("K30") K31 = rs.Fields.Item("K31") K32 = rs.Fields.Item("K32") K33 = rs.Fields.Item("K33") K34 = rs.Fields.Item("K34") K35 = rs.Fields.Item("K35") K36 = rs.Fields.Item("K36") K37 = rs.Fields.Item("K37") K38 = rs.Fields.Item("K38") K39 = rs.Fields.Item("K39") K40 = rs.Fields.Item("K40") K41 = rs.Fields.Item("K41") K42 = rs.Fields.Item("K42") K43 = rs.Fields.Item("K43") K44 = rs.Fields.Item("K44") K45 = rs.Fields.Item("K45") K46 = rs.Fields.Item("K46") K47 = rs.Fields.Item("K47") K48 = rs.Fields.Item("K48") K49 = rs.Fields.Item("K49") K50 = rs.Fields.Item("K50") K51 = rs.Fields.Item("K51") K52 = rs.Fields.Item("K52") K53 = rs.Fields.Item("K53") K54 = rs.Fields.Item("K54") K55 = rs.Fields.Item("K55") K56 = rs.Fields.Item("K56") K57 = rs.Fields.Item("K57") K58 = rs.Fields.Item("K58") K59 = rs.Fields.Item("K59") K60 = rs.Fields.Item("K60") K61 = rs.Fields.Item("K61") K62 = rs.Fields.Item("K62") K63 = rs.Fields.Item("K63") K64 = rs.Fields.Item("K64") K65 = rs.Fields.Item("K65") K66 = rs.Fields.Item("K66") K67 = rs.Fields.Item("K67") K68 = rs.Fields.Item("K68") K69 = rs.Fields.Item("K69") K70 = rs.Fields.Item("K70") K71 = rs.Fields.Item("K71") K72 = rs.Fields.Item("K72") K73 = rs.Fields.Item("K73") K74 = rs.Fields.Item("K74") K75 = rs.Fields.Item("K75") K76 = rs.Fields.Item("K76") K77 = rs.Fields.Item("K77") K78 = rs.Fields.Item("K78") K79 = rs.Fields.Item("K79") K80 = rs.Fields.Item("K80") rs.MoveNext PWInvalid = 1 loop rs.Close Set rs = Nothing %>