Är det ingen som ens kan ge en hint??? :(
Det kanske är för lite information... Och jag kanske ska åtgärda
felet istället för att hitta nya lösningar. Tycker personligen att det är svårt att gå in i en annans kod som man inte riktigt hajar (Denna är skriven -98).
Å andra sidan så övergår väl den här tråden över till ett ASP/VBscript bekymmer nu istället...
Om jag klickar går jag vidare till en sida med sån där mysko felhantering som jag helst vill undvika (för att jag är så usel på det).
Felmeddelandet säger vid misslyckade inloggningsförsök att det är "inkompatibla typer" rad XX "DoCommonHeader"
Koden i den ser ut så här (wichlogin):
<%@ LANGUAGE="VBSCRIPT" %>
<% Response.Buffer = true %>
<HTML>
<HEAD>
<!--#include virtual="/asp/asp_lib.asp" -->
</HEAD>
<BODY>
<%Call WILogin()%>
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub WILogin()
Response.clear
theUserId = Request.Form("userid")
if (len(theUserId) = 0) then
errMsg = "The user ID is missing. It should be up to 16 alphanumeric characters."
call MakeLoginError("---", errMsg)
Response.Flush
exit sub
end if
if (len(theUserId) > 16) then
errMsg = "The user ID is invalid. It should be up to 16 alphanumeric characters."
call MakeLoginError("---", errMsg)
Response.Flush
exit sub
end if
thePassword = Request.Form("pwd")
' Try log in
Call LoginUser(theUserId, thePassword, isSalesman, errMsg)
'****************************************************************************
if errMsg = "" then
Session("theUserId") = theUserId
Session("thePassword") = thePassword
Session("isSalesman") = UCase(isSalesman)
Session("SessionStart") = Now()
response.write "Creating array 1 of 3 ..."
call Array_All_Warehouse()
response.write "Creating array 2 of 3 ..."
call Array_Warehouse(Session("theUserId"),errMsg)
response.write "Creating array 3 of 3 ..."
call Array_ProdGroup(Session("theUserId"),errMsg)
tempURL = "../start.asp?arg=Browse"
Response.Clear
Response.Redirect tempURL
else
Call MakeLoginError(theUserId, errMsg)
end if
Response.Flush
end Sub
' Make the login form. If errMsg is not empty, add it to the form
sub MakeLoginError(theUserId, errMsg)
Call DoCommonHeader ("SB WebInventory Login Error")[RED][RAD XX][/RED]
Response.write "<H1>Login to site error</H1>"
Response.write "For user <em>" & theUserId & "</em>,the following error has occurred:"
Response.write "<p>"
Response.Write errMsg
Response.Write "<p>"
Response.Write "<a href=""wilogin.asp"">Login to WebInventory.</a>"
Response.Expires = 0
end sub
Sub LoginUser(theUserId, thePassword, isSalesman, errMsg)
vSQL = "SELECT PersSign, q_wiFunk FROM sy2 WHERE PersSign = '"
vSQL = vSQL & theUserId & "'"
Set vConn = Server.CreateObject("ADODB.Connection")
vConn.open "DSN=proddb","sa","blabla"
Set Rs = Server.CreateObject("ADODB.Recordset")
rs.Open vSQL, vConn, 1, 3
If rs.recordcount=0 Then
Rs.Close
vConn.Close
Set Rs = Nothing
Set vConn = Nothing
response.redirect "index.html"
else
if Rs("PersSign") = theUserId then
isSalesman = Rs("q_wiFunk")
End If
end if
Rs.Close
vConn.Close
Set Rs = Nothing
Set vConn = Nothing
end Sub
</SCRIPT></BODY></HTML>
Funktionen DoCommonHeader ligger i en includefil. Och ser ut så här:
Sub DoCommonHeader(inTitle)
' Includes even start BODY tag.
Response.Clear
Response.Write "<HTML>"
Response.Write "<HEAD>"
Response.Write "<META NAME=""GENERATOR"" Content=""Microsoft Developer Studio"">"
Response.Write "<META HTTP-EQUIV=""Content-Type"" content=""text/html; charset=iso-8859-1"">"
Response.Write "<TITLE>"
Response.Write inTitle
Response.Write "</TITLE>"
Response.Write "</HEAD>"
Response.Write "<BODY BGCOLOR=""#FFFFFF"">"
End Sub
Ser ni vad jag inte ser!? (Har stirrat på detta i 2 dygn snart)
