HVORFOR??

Kunne lyde som om din server ikke understøtter asp el. lign.

DET gør den....andre ASP sider virker fint på den!

DAn

prøv at post hele dit ASP så kan vi se om vi kan ave det på en anden måde så det virker.....

Der er fordi den ikke kan få adgang til databasen da stien ikke er korrekt. Eller fordi du laver en forbindelse til din database som din udbyder ikke understøtter.

Jeg syntes at det er sjovt at så længe det kører på min lokale maskine så fungerer ALT perfekt - indtil det bliver uploaded! Jeg har lavet det hele i Dreamweaver MX.... Her er koden:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/Personale.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 & "?" & 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_Personale_STRING
  MM_editTable = "Tabel1"
  MM_editRedirectUrl = "test2.asp"
  MM_fieldsStr  = "textfield|value|textfield2|value"
  MM_columnsStr = "Navn|',none,''|Email|',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 Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_Personale_STRING
Recordset1.Source = "SELECT * FROM Tabel1"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<form name="form1" method="POST" action="<%=MM_editAction%>">
  <p>Navn:
    <input type="text" name="textfield">
  </p>
  <p>Email:
    <input type="text" name="textfield2">
  </p>
  <p>
    <input type="submit" name="Submit" value="Submit">
  </p>
  <input type="hidden" name="MM_insert" value="form1">
</form>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

Læs om fejlen her:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q175671

Det er en løsning på problemet på den side jeg linker til. Det er ikke din kode der er problemet.

Tip:
En anden gang kan du jo kigge på http://www.15seconds.com/faq/ODBC/default.htm hvis du har database problemer.

Det fatter jeg ikke en brik af dette - noget med en global.asa??????

Global.asa er en fil der ligger i roden at dit web. Prøv at vis indholdet af den her.

Men det er måden du tilslutter til din database på der er problemet.

Global asa:

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnStart
const MaxShoppingCartItems  = 500
const ShoppingCartAttributes = 9

Session("ConnectionString") = "DBQ="&Request.ServerVariables("APPL_PHYSICAL_PATH")&"dataentry/service.mdb;UID=;PWD=;" &_
"DefaultDir="&Request.ServerVariables("APPL_PHYSICAL_PATH")&"dataentry/;" &_
"Driver={Microsoft Access Driver (*.mdb)};" &_
"DriverId=25;FIL=MSAccess;" &_
"ImplicitCommitSync=Yes;" &_
"MaxBufferSize=512;" &_
"MaxScanRows=8;" &_
"PageTimeout=5;" &_
"SafeTransactions=0;" &_
"Threads=3;UID=admin;" &_
"UserCommitSync=Yes;"

ReDim ARYShoppingCart(ShoppingCartAttributes,MaxShoppingCartItems)

Session("MyShoppingCart") = ARYShoppingCart
Session("ItemCount") = 0

END SUB
</SCRIPT>


<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnEnd
END SUB
</SCRIPT>

Vi har noget butiksværk liggende mv. derfor indeholder den dette!!!!!

Hvordan skal jeg så tilslutte???

Dan

Det er helt konkret dette der er galt: APPL_PHYSICAL_PATH det er den fysiske sti til database f.eks. c:\inetpub\wwwroot på din internet udbyders webhotel er denne sti ikke den samme.

Hvilken webhotel udbyder benytter du?

Next Level...

eh link

www.nli.dk

Opret en ny asp fil kald den test.asp f.eks. og indsæt denne kode:

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Vis site info</title>
</head>
<body>
<p><b>Beskrivelse af dit site:</b></p>
<p>Folder på serveren = <%=Request.Servervariables("APPL_PHYSICAL_PATH")%></p>
<p>Denne site = <%=Request.Servervariables("PATH_INFO")%></p>
<p>Denne site på serveren = <%=Request.Servervariables("PATH_TRANSLATED")%></p>
</body>
</html>

Så får du den fysiske sti til den mappe dit webhotel ligger i.

Ps. filen skal selvfølgelig oplades og køres fra din hjemmeside på nettet.

Men hvorfor ikke ringe: Support: 70 23 80 23

Jamen - EKSPERTEN rykker jo - man får sgu altid et bedre svar herinde!!!

Den skriver nu.....

Beskrivelse af dit site:

Folder på serveren =

Denne site = D:\Inetpub\wwwroot\websites\meldgaard.com\/test-dc/test/test3.asp

Denne site på serveren = D:\Inetpub\wwwroot\websites\meldgaard.com\test-dc\test\test3.asp

hmmmmmmm

Tjek lige at der på dit webhotel hvor access filen ligger ikke også er en fil mere. Med samme navn men anden endelse.

Det er der ikke!!!!!!!!!

Hmm jeg er blank. Anbefaler at du ringer til support og høre den ad om du godt kan connecte på den måde du gør.

Dreamweaver laver en mappe der hedder connections hvor den ligger filen database.asp den indeholder følgende:

<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_Database_STRING
MM_Database_STRING = "dsn=DB;"
%>

Fandt dette:

http://www.macromedia.com/support/ultradev/ts/documents/8004005_provider.htm

Men du har oprettet en odbc på din pc ik? Altså i kontrolpanel

Jep....

Aha. Det er jo ikke gjort på serveren på dit Webhotel. Hør dem ad om du kan få det.

Jeg har lige sendt en mail til dem.....lad os se hvad de siger.....

TAK FOR HJÆLPEN!!!!!! Du får point.....

Hvorfor ikke ringe????

styled.dk>

Kommentar fra dtc
07/06-2002 11:27:03

Ja hans synes eksperten er bedre...men når han alligevel bestemmer sig for at skrive til dem kan han ligeså godt ringe?

hans = han

Der var nok optaget:)

Jeg er lidt ny i det asp værk - derfor vil jeg hellere have noget på skrift end igennem en telefon!

wow fuck... rimmelig meget kode som er rimelig meget uoverskueligt...

men en ting er sikkert... det er ikke noget der ændre noget i din kode eller får det til at virke, men det kan give lidt mere overskuelighed.. men det er jo op til dig hvad du synes hvad der er uoverskueligt...

alle dine variabler definere du således:

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

med du kan sagtens smide dem på samme linie sådan her:

Dim MM_editAction, MM_abortEdit, MM_editQuery, MM_editCmd

Dim MM_editConnection, MM_editTable, MM_editRedirectUrl, MM_editColumn, MM_recordId, MM_fieldsStr, MM_columnsStr
Dim MM_fields, MM_columns, MM_typeArray, MM_formVal, MM_delim, MM_altVal,  MM_emptyVal, MM_i

men det er som sagt kun ren overskueligheds