I'm a total newbie to iis and sql, iis v4 and sql v7. We purchased help desk software that uses sql to run on the network. It also has a web interface that uses asp. The internal network portion runs fine. The internet interface is a different story. here's a one of one of the scripts.
<%
Option Explicit
' SDS Knowledge Base Web Interface
'
' V503, July 27, 2001
'
' Copyright (c) 2000-2001 Scott Data Systems, Inc.
'
' Use of this software indicates your acceptance of the following agreement:
'
' This software and any accompanying documentation are proprietary products
' of Scott Data Systems, Inc. ("SDS"
, and are protected under US copyright
' laws and international treaty provisions. Ownership of this software and
' all copies, modifications, and merged portions thereof shall, at all times,
' remain with Scott Data Systems, Inc.
'
' This software and the accompanying files are distributed and sold "as is"
' and without warranties as to performance or merchantability or any other
' warranties expressed or implied. The user assumes the entire risk of
' using the program.
'
' You may customize this software to meet your specific requirements. Any modified
' versions of this software must also include this copyright notice.
'
%>
<HTML>
<HEAD>
<TITLE>SDS Knowledge Base Web Interface</TITLE>
</HEAD>
<BODY>
<%
Dim Hd
RunMain
%>
<br><center><a href=" To Home Page</a></center>
</BODY>
</HTML>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Init()
If IsObject(Hd) then
Set Hd = Nothing
End If
If IsObject(Session("SDSKbase") Then
Set Session("SDSKbase" = Nothing
End If
Set Hd = Server.CreateObject("SDSKbase.Kbase"
With Hd
.LicenseFile = "C:\Inetpub\Scripts\SDSKbase\SDSKbase.lic"
.SQLServerName = "" ' Your SQL Server Name
.SQLDatabaseName = "" ' Your SDS HelpDesk Database Name
.SQLServerUid = "" ' SQL Server Database Login Name for all customers
.SQLServerPwd = "" ' SQL Server Database Password for all custmers
'.AccessDatabaseFullPath = "" ' Access Only. example: c:\Inetpub\Database\WebDemo.mdb
'.AccessDatabasePwd = "" ' Access Only. No database password by default
.Login
End With
Set Session("SDSKbase" = Hd
End Sub
Sub RunMain()
If Not IsObject(Session("SDSKbase") Then
ShowQueryForm
Exit Sub
End If
Set Hd = Session("SDSKbase"
If Hd Is Nothing Then
ShowQueryForm
Exit Sub
End If
Select Case Hd.Action(Request)
Case "ShowQueryForm"
ShowQueryForm
Case "ShowArticle"
ShowArticle
Case "ShowArticles"
ShowArticles
Case "ShowMessage"
ShowMessage
Case Else
ShowQueryForm
End Select
Hd.EndAction
End Sub
Sub ShowQueryForm()
Init
ResponseWrite "<center>"
ResponseWrite "<br><b>Search Knowledge Base</b>"
ResponseWrite "<br>"
ResponseWrite "<form method=post action=""SDSKbase.asp"">"
ResponseWrite "<input type=""hidden"" name=""Action"" value=""ShowArticles"">"
ResponseWrite "<table width=""70%""><tr><td>"
ResponseWrite "<br><b>Category</b>"
ResponseWrite "<br><select name=""CategoryId"">"
ResponseWrite Hd.ListCategories
ResponseWrite "</select>"
ResponseWrite "<br><br><b>Location</b>"
ResponseWrite "<br><select name=""LocationId"">"
ResponseWrite Hd.ListLocations
ResponseWrite "</select>"
ResponseWrite "<br><br><b>Part</b>"
ResponseWrite "<br><select name=""PartId"">"
ResponseWrite Hd.ListParts
ResponseWrite "</select>"
ResponseWrite "<br><br><b>Search keyword</b>"
ResponseWrite "<br><input type=text name=Keyword1>"
ResponseWrite "</td></tr></table>"
ResponseWrite "<br><br><input type=submit name=""Kbase"" value=""Begin Search"">"
ResponseWrite " <input type=""reset"" value=""Reset"">"
ResponseWrite "</form>"
ResponseWrite "</center>"
End Sub
Sub ShowMessage()
Dim NextScreen
Dim Message
Select Case Hd.MsgId
Case "NoArticles"
Message = "No Articles Found"
NextScreen = "ShowQueryForm"
Case "NoArticle"
Message = "Article Not Found"
NextScreen = "ShowArticles"
End Select
ResponseWrite "<center>"
ResponseWrite "<br><b>" & Message & "</b>"
ResponseWrite "<br><br>"
ResponseWrite "<form method=""post"" action=""SDSKbase.asp"">"
ResponseWrite "<input type=""hidden"" name=""Action"" value=""" & NextScreen & """>"
ResponseWrite "<input type=""submit"" name=""Continue"" value=""Continue"">"
ResponseWrite "</form>"
ResponseWrite "</center>"
End Sub
Sub ShowArticles()
ResponseWrite "<center>"
ResponseWrite "<br><b>Knowledge Base Articles</b>"
ResponseWrite "<br><br>"
ResponseWrite "<table border=0 cellspacing=0 cellpadding=5 width=""75%"">"
Do Until Hd.Eof
ResponseWrite "<tr>"
ResponseWrite "<td align=left><a href=""SDSKbase.asp?Action=ShowArticle&KbaseId=" & Hd.Id & """>" & Hd.Title & "</a></td>"
ResponseWrite "</tr>"
Hd.MoveNext
Loop
ResponseWrite "</table>"
ResponseWrite "<br><a href=""SDSKbase.asp?Action=ShowQueryForm"">New Search</a>"
ResponseWrite "</center>"
End Sub
Sub ShowArticle()
ResponseWrite "<center>"
ResponseWrite "<br>"
ResponseWrite "<td align=left>" & Hd.Title & "</td>"
ResponseWrite "<br><br>"
ResponseWrite "<table border=0 cellspacing=0 cellpadding=5 width=""75%"">"
' ResponseWrite "<tr>"
' ResponseWrite "<td align=right><b>Author:</b></td>"
' ResponseWrite "<td align=left>" & Hd.Author & "</td>"
' ResponseWrite "</tr>"
ResponseWrite "<tr>"
ResponseWrite "<td align=right><b>Create Date:</b></td>"
ResponseWrite "<td align=left>" & Hd.CreateDate & "</td>"
ResponseWrite "</tr>"
ResponseWrite "<tr>"
ResponseWrite "<td align=right><b>Modify Date:</b></td>"
ResponseWrite "<td align=left>" & Hd.ModifyDate & "</td>"
ResponseWrite "</tr>"
ResponseWrite "<tr>"
ResponseWrite "<td align=right><b>Category:</b></td>"
ResponseWrite "<td align=left>" & Hd.Category & "</td>"
ResponseWrite "</tr>"
ResponseWrite "<tr>"
ResponseWrite "<td align=right><b>Location:</b></td>"
ResponseWrite "<td align=left>" & Hd.Location & "</td>"
ResponseWrite "</tr>"
ResponseWrite "<tr>"
ResponseWrite "<td align=right><b>Part:</b></td>"
ResponseWrite "<td align=left>" & Hd.Part & "</td>"
ResponseWrite "</tr>"
ResponseWrite "</table>"
ResponseWrite "<br><b>Article</b><br>"
ResponseWrite "<table border=1 cellspacing=0 cellpadding=5 width=""90%"">"
ResponseWrite "<tr>"
ResponseWrite "<td align=left>" & Hd.Article & "</td>"
ResponseWrite "</tr>"
ResponseWrite "</table>"
ResponseWrite "<br><a href=""SDSKbase.asp?Action=ShowArticles"">View Search Results</a>"
ResponseWrite "</center>"
End Sub
Sub ResponseWrite(vText)
Response.Write vbCrLf & vText
End Sub
</SCRIPT>
When this script is run from a browser we get one little drop down box that's about 2 characters wide with nothing in it? I think it's a problem with our server setup, but i'm not sure. any help or suggestions would be greatly appreciated.
<%
Option Explicit
' SDS Knowledge Base Web Interface
'
' V503, July 27, 2001
'
' Copyright (c) 2000-2001 Scott Data Systems, Inc.
'
' Use of this software indicates your acceptance of the following agreement:
'
' This software and any accompanying documentation are proprietary products
' of Scott Data Systems, Inc. ("SDS"
, and are protected under US copyright ' laws and international treaty provisions. Ownership of this software and
' all copies, modifications, and merged portions thereof shall, at all times,
' remain with Scott Data Systems, Inc.
'
' This software and the accompanying files are distributed and sold "as is"
' and without warranties as to performance or merchantability or any other
' warranties expressed or implied. The user assumes the entire risk of
' using the program.
'
' You may customize this software to meet your specific requirements. Any modified
' versions of this software must also include this copyright notice.
'
%>
<HTML>
<HEAD>
<TITLE>SDS Knowledge Base Web Interface</TITLE>
</HEAD>
<BODY>
<%
Dim Hd
RunMain
%>
<br><center><a href=" To Home Page</a></center>
</BODY>
</HTML>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Init()
If IsObject(Hd) then
Set Hd = Nothing
End If
If IsObject(Session("SDSKbase"
) ThenSet Session("SDSKbase"
= NothingEnd If
Set Hd = Server.CreateObject("SDSKbase.Kbase"
With Hd
.LicenseFile = "C:\Inetpub\Scripts\SDSKbase\SDSKbase.lic"
.SQLServerName = "" ' Your SQL Server Name
.SQLDatabaseName = "" ' Your SDS HelpDesk Database Name
.SQLServerUid = "" ' SQL Server Database Login Name for all customers
.SQLServerPwd = "" ' SQL Server Database Password for all custmers
'.AccessDatabaseFullPath = "" ' Access Only. example: c:\Inetpub\Database\WebDemo.mdb
'.AccessDatabasePwd = "" ' Access Only. No database password by default
.Login
End With
Set Session("SDSKbase"
= HdEnd Sub
Sub RunMain()
If Not IsObject(Session("SDSKbase"
) ThenShowQueryForm
Exit Sub
End If
Set Hd = Session("SDSKbase"
If Hd Is Nothing Then
ShowQueryForm
Exit Sub
End If
Select Case Hd.Action(Request)
Case "ShowQueryForm"
ShowQueryForm
Case "ShowArticle"
ShowArticle
Case "ShowArticles"
ShowArticles
Case "ShowMessage"
ShowMessage
Case Else
ShowQueryForm
End Select
Hd.EndAction
End Sub
Sub ShowQueryForm()
Init
ResponseWrite "<center>"
ResponseWrite "<br><b>Search Knowledge Base</b>"
ResponseWrite "<br>"
ResponseWrite "<form method=post action=""SDSKbase.asp"">"
ResponseWrite "<input type=""hidden"" name=""Action"" value=""ShowArticles"">"
ResponseWrite "<table width=""70%""><tr><td>"
ResponseWrite "<br><b>Category</b>"
ResponseWrite "<br><select name=""CategoryId"">"
ResponseWrite Hd.ListCategories
ResponseWrite "</select>"
ResponseWrite "<br><br><b>Location</b>"
ResponseWrite "<br><select name=""LocationId"">"
ResponseWrite Hd.ListLocations
ResponseWrite "</select>"
ResponseWrite "<br><br><b>Part</b>"
ResponseWrite "<br><select name=""PartId"">"
ResponseWrite Hd.ListParts
ResponseWrite "</select>"
ResponseWrite "<br><br><b>Search keyword</b>"
ResponseWrite "<br><input type=text name=Keyword1>"
ResponseWrite "</td></tr></table>"
ResponseWrite "<br><br><input type=submit name=""Kbase"" value=""Begin Search"">"
ResponseWrite " <input type=""reset"" value=""Reset"">"
ResponseWrite "</form>"
ResponseWrite "</center>"
End Sub
Sub ShowMessage()
Dim NextScreen
Dim Message
Select Case Hd.MsgId
Case "NoArticles"
Message = "No Articles Found"
NextScreen = "ShowQueryForm"
Case "NoArticle"
Message = "Article Not Found"
NextScreen = "ShowArticles"
End Select
ResponseWrite "<center>"
ResponseWrite "<br><b>" & Message & "</b>"
ResponseWrite "<br><br>"
ResponseWrite "<form method=""post"" action=""SDSKbase.asp"">"
ResponseWrite "<input type=""hidden"" name=""Action"" value=""" & NextScreen & """>"
ResponseWrite "<input type=""submit"" name=""Continue"" value=""Continue"">"
ResponseWrite "</form>"
ResponseWrite "</center>"
End Sub
Sub ShowArticles()
ResponseWrite "<center>"
ResponseWrite "<br><b>Knowledge Base Articles</b>"
ResponseWrite "<br><br>"
ResponseWrite "<table border=0 cellspacing=0 cellpadding=5 width=""75%"">"
Do Until Hd.Eof
ResponseWrite "<tr>"
ResponseWrite "<td align=left><a href=""SDSKbase.asp?Action=ShowArticle&KbaseId=" & Hd.Id & """>" & Hd.Title & "</a></td>"
ResponseWrite "</tr>"
Hd.MoveNext
Loop
ResponseWrite "</table>"
ResponseWrite "<br><a href=""SDSKbase.asp?Action=ShowQueryForm"">New Search</a>"
ResponseWrite "</center>"
End Sub
Sub ShowArticle()
ResponseWrite "<center>"
ResponseWrite "<br>"
ResponseWrite "<td align=left>" & Hd.Title & "</td>"
ResponseWrite "<br><br>"
ResponseWrite "<table border=0 cellspacing=0 cellpadding=5 width=""75%"">"
' ResponseWrite "<tr>"
' ResponseWrite "<td align=right><b>Author:</b></td>"
' ResponseWrite "<td align=left>" & Hd.Author & "</td>"
' ResponseWrite "</tr>"
ResponseWrite "<tr>"
ResponseWrite "<td align=right><b>Create Date:</b></td>"
ResponseWrite "<td align=left>" & Hd.CreateDate & "</td>"
ResponseWrite "</tr>"
ResponseWrite "<tr>"
ResponseWrite "<td align=right><b>Modify Date:</b></td>"
ResponseWrite "<td align=left>" & Hd.ModifyDate & "</td>"
ResponseWrite "</tr>"
ResponseWrite "<tr>"
ResponseWrite "<td align=right><b>Category:</b></td>"
ResponseWrite "<td align=left>" & Hd.Category & "</td>"
ResponseWrite "</tr>"
ResponseWrite "<tr>"
ResponseWrite "<td align=right><b>Location:</b></td>"
ResponseWrite "<td align=left>" & Hd.Location & "</td>"
ResponseWrite "</tr>"
ResponseWrite "<tr>"
ResponseWrite "<td align=right><b>Part:</b></td>"
ResponseWrite "<td align=left>" & Hd.Part & "</td>"
ResponseWrite "</tr>"
ResponseWrite "</table>"
ResponseWrite "<br><b>Article</b><br>"
ResponseWrite "<table border=1 cellspacing=0 cellpadding=5 width=""90%"">"
ResponseWrite "<tr>"
ResponseWrite "<td align=left>" & Hd.Article & "</td>"
ResponseWrite "</tr>"
ResponseWrite "</table>"
ResponseWrite "<br><a href=""SDSKbase.asp?Action=ShowArticles"">View Search Results</a>"
ResponseWrite "</center>"
End Sub
Sub ResponseWrite(vText)
Response.Write vbCrLf & vText
End Sub
</SCRIPT>
When this script is run from a browser we get one little drop down box that's about 2 characters wide with nothing in it? I think it's a problem with our server setup, but i'm not sure. any help or suggestions would be greatly appreciated.
