[aspdebeginners] =?iso-8859-1?Q?conn.open_f=FCr_SQL_Datenbank_geht_nicht?=

[Ren� Stankowski]

W�sste hier jemand Rat. Ich will mich in eine SQL Datenbank einloggen aber der Loginteil

 

conn.Open dsn=AWECO;"uid=sa;pwd=sa" 

stimmt nicht

Herzlichen Dank

Ren�

 

 

<%@Language="VBScript" EnableSessionState="False"%>
<!--#include file="../../Connections/connAWECO.asp" -->
<!--#include virtual="/adovbs.inc" -->
<%

 

'Option Explicit
Response.Buffer = True
Response.AddHeader "cache-control", "no-store"
Response.AddHeader "pragma", "no-cache"
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0

 

Dim strUser, strPassword
    strUser = Request.Form("txtKptBenutzer")
    strPassword = Request.Form("txtKptPassword")

 

Dim rs, conn

 

set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADOB.Recordset")
'conn.Open "dsn=aweco";"uid"=sa;"pwd"=sa
conn.Open dsn=AWECO;"uid=sa;pwd=sa"     <-------HIER STIMMT WAS NICHT ------ HELP -----
'db.Open dsn=aweco;uid=sa;pwd=sa
'MM_connAWECO_STRING = "dsn=AWECO;uid=sa;pwd=sa;"

 

rs.open "SELECT KtpBenutzer, KtpPasswort FROM dbo.tblLogin WHERE KptBenutzer = '" & (strUser) & "' AND Password = '" & (strPassword) & "'", conn

 

    rs.CursorType = 0 'adOpenForwardOnly
    rs.CursorLocation = 2 'adUseServer
    rs.LockType = 3 'adLockOptimistic

 

 If Request.Form.Count>0 then
  KtpBenutzer = Request.Form("txtKptBenutzer")
  KtpPassword = Request.Form("txtKptPassword")

 

 If not rs.EOF and not rs.BOF then
  Session("Protected") = true
   Response.Redirect "../membership/membership_main.asp"
'   Response.End
  else
   Response.Redirect "login_page_denied.asp"
  end if
 end if 
 
conn.Close
set conn = Nothing
set rs = Nothing

 

%>

| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ | [aspdebeginners] als archive@jab.org subscribed | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv | Sie knnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp