Разное

Немогу понять что не так,может модуль какой отсутствует?
Создаю страницу ASP VBScript,пишу какие то слова,IE открывает страницу нормально,
но стоит мне нарисовать таблицу и связать её с БД Access,у меня страница не открывается,а просит скачаться,а у других она открывается только вместо нормальной страницы они видят:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1251"%> <!--#include file="Connections/GuestBook_conn.asp" --> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then   MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "form1") Then   MM_editConnection = MM_GuestBook_conn_STRING   MM_editTable = "GuestBook"   MM_editRedirectUrl = "show.asp"   MM_fieldsStr  = "Name|value|Email|value|Country|value|URL|value|Rank|value|Message|value"   MM_columnsStr = "Name|',none,''|Email|',none,''|Country|',none,''|URL|',none,''|Rank|none,none,NULL|Message|',none,''"   ' create the MM_fields and MM_columns arrays   MM_fields = Split(MM_fieldsStr, "|")   MM_columns = Split(MM_columnsStr, "|")      ' set the form values   For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2     MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))   Next   ' append the query string to the redirect URL   If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then     If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then       MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString     Else       MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString     End If   End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then   ' create the sql insert statement   MM_tableValues = ""   MM_dbValues = ""   For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2     MM_formVal = MM_fields(MM_i+1)     MM_typeArray = Split(MM_columns(MM_i+1),",")     MM_delim = MM_typeArray(0)     If (MM_delim = "none") Then MM_delim = ""     MM_altVal = MM_typeArray(1)     If (MM_altVal = "none") Then MM_altVal = ""     MM_emptyVal = MM_typeArray(2)     If (MM_emptyVal = "none") Then MM_emptyVal = ""     If (MM_formVal = "") Then       MM_formVal = MM_emptyVal     Else       If (MM_altVal <> "") Then         MM_formVal = MM_altVal       ElseIf (MM_delim = "'") Then  ' escape quotes         MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"       Else         MM_formVal = MM_delim + MM_formVal + MM_delim       End If     End If     If (MM_i <> LBound(MM_fields)) Then       MM_tableValues = MM_tableValues & ","       MM_dbValues = MM_dbValues & ","     End If     MM_tableValues = MM_tableValues & MM_columns(MM_i)     MM_dbValues = MM_dbValues & MM_formVal   Next   MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"   If (Not MM_abortEdit) Then     ' execute the insert     Set MM_editCmd = Server.CreateObject("ADODB.Command")     MM_editCmd.ActiveConnection = MM_editConnection     MM_editCmd.CommandText = MM_editQuery     MM_editCmd.Execute     MM_editCmd.ActiveConnection.Close     If (MM_editRedirectUrl <> "") Then       Response.Redirect(MM_editRedirectUrl)     End If   End If End If %> <% Dim rs_GuestBook Dim rs_GuestBook_numRows Set rs_GuestBook = Server.CreateObject("ADODB.Recordset") rs_GuestBook.ActiveConnection = MM_GuestBook_conn_STRING rs_GuestBook.Source = "SELECT * FROM GuestBook" rs_GuestBook.CursorType = 0 rs_GuestBook.CursorLocation = 2 rs_GuestBook.LockType = 1 rs_GuestBook.Open() rs_GuestBook_numRows = 0 %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" " http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>EvoLL CLan.Tm - GuestBook</title> <meta http-equiv="Content-Type" content="text/html; charset=windows-1251"> </head> <body> <table width="500" height="200" border="1" cellpadding="1" cellspacing="1">   <tr>     <td width="220" nowrap><%=(rs_GuestBook.Fields.Item("FillingDate").Value)%></td>     <td rowspan="6" valign="top"><%=(rs_GuestBook.Fields.Item("Message").Value)%></td>   </tr>   <tr>     <td width="220" nowrap><a href=" mailto:<%=(rs_GuestBook.Fields.Item("Email").Value)%>"><%=(rs_GuestBook.Fields.Item("Name").Value)%></a></td>   </tr>   <tr>     <td width="220" nowrap><a href="<%=(rs_GuestBook.Fields.Item("URL").Value)%>"><%=(rs_GuestBook.Fields.Item("URL").Value)%></a></td>   </tr>   <tr>     <td width="220" nowrap><%=(rs_GuestBook.Fields.Item("Country").Value)%></td>   </tr>   <tr>     <td width="220" nowrap>IP: <%=(rs_GuestBook.Fields.Item("IPAddress").Value)%></td>   </tr>   <tr>     <td width="220" nowrap><%=(rs_GuestBook.Fields.Item("Rank").Value)%></td>   </tr> </table> <p>&nbsp;</p> </body> </html> <% rs_GuestBook.Close() Set rs_GuestBook = Nothing %>

Я так понял у меня на сервере не выполняется код или скрипт,ни кто не подскажет почему и как исправить?
P.S. использую Apache2.2.2 + PHP5.1.4

Заранее благодарен!

для ASP нужен IIS

Извени неподскажеш где таковой достать?
Это подключаемый модуль к Apache как PHP?

Это подключаемый модуль к Win XP Pro :D

Ясно,но я попрежнему незнаю где его достать!Подскажите кто нибудь где можно скачать модуль ISS! PLZ

Это полноценный виндовый сервер... Он идет вместе с серверными версиями винды - 2000 pro, XP pro и т.д. Если у вас соответствующая версия Windows, то установить IIS можно так (XP pro):
1. Вставьте диск с Windows и откройте Панель Управления,
2. выберете Установка и Удаление Программ,
3. нажмите на Установка компонентов Windows,
4. отметьте Internet Information Services (IIS) и Служба Индексирования.
Все, сервер установлен.
Чтобы его администрировать зайдите в Панель Управления, затем в Производительность и обслуживание, затем в Администрирование и вы увидете ярлык Internet Information Services. Теперь надо настроить сервер.

Вообще-то asp сейчас не в тему. А вот asp.net как раз... в самый раз :)

А тут у меня еще проблема из проблемы,не стартует Default Web Site,пишет мол:
Unxpected error 0x8ffe2740 occurred.
В чём дело?

Кто нибудь знает в чём проблема?

Замечательно это ошибка портов,тоесть когда Apache работает,не работает IIS и наоборот,и он всёравно пытается скачать мои *.asp!
Как же сделать так,чтобы скрипты файлов *.asp выполнялись Апачем?

А разве апач может это сделать?????

>А разве апач может это сделать?????
Я незнаю что может Апач,но у меня не работает ни одна БД, ни Access,ни MySQL,за весь день ни 1 человек непомог в ЭТОМ!

Ну прям полоса невезения=) Отдышитесь и подумайте, чего именно вы хотите. Дело в том, что группа Apache+PHP+MySQL не совместима с группой IIS+ASP+MS SQL. Совместить их - все равно что скрестить ужа и ежа. Здесь, к слову, больше специалистов по первой группе, чем по второй.

> Здесь, к слову, больше специалистов по первой группе, чем по второй.

Раз по MySQL тут спецов болше то с этим помогите http://www.softtime.ru/forum/read.php?id_forum=3&id_theme=23187&page=1