Lave denne kode om?

Alser så bruger navnet og koden ligger i Config.asp som den gør i nummer 2 kode

inden der kan hjælpe

hvis jeg forstår dig rigtigt, så vil du have lagt databaseconnectionen over i en config fil, så du kan kan includere den der hvor du skal bruge db'en?

hvis det er tilfældet, så laver du bare en config.asp til med følgende:

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=db.guf4you.dk;DATABASE=;USER=;PASSWORD=;OPTION=3;"

der hvor du skal bruge db forbindelsen, indsætter du så bare:
<!--#include virtual="config.asp"-->

Jeg har en config.asp jeg skal bare lave så denne kode kører over config.asp


<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=db.guf4you.dk;DATABASE=;USER=;PASSWORD=;OPTION=3;"
SQL = "SELECT * FROM ja_member ORDER BY Id DESC LIMIT 5"


' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From ja_member Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

' Skriv personens data
' Og husk at feltet ikke må indeholde Æ Ø Å
' Så ret dit fel til "fodselsdagdag"
Response.Write "" & rs("navn") & "</dd>"


Conn.Close
Set Conn = Nothing
%>

jeg tror ikke helt jeg forstår hvad du mener. Du kan jo bare flytte koden over i config.asp filen

Jeg har en config.asp med denne kode i

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=kolk; Database=; UID=; PWD=;"
%>
<%
Sub CloseDataBase

  objConn.Close

  Set objConn = Nothing
End Sub

%>

Jeg vil bare ha dette fjernet

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=db.guf4you.dk;DATABASE=;USER=;PASSWORD=;OPTION=3;"
SQL = "SELECT * FROM ja_member ORDER BY Id DESC LIMIT 5"


Fra denne kode

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=db.guf4you.dk;DATABASE=;USER=;PASSWORD=;OPTION=3;"
SQL = "SELECT * FROM ja_member ORDER BY Id DESC LIMIT 5"


' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From ja_member Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

' Skriv personens data
' Og husk at feltet ikke må indeholde Æ Ø Å
' Så ret dit fel til "fodselsdagdag"
Response.Write "" & rs("navn") & "</dd>"


Conn.Close
Set Conn = Nothing
%>

MEn hvor dan fjerner jeg det så det stadig virker

du sletter det her:

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=db.guf4you.dk;DATABASE=;USER=;PASSWORD=;OPTION=3;"

og retter denne linie: Set rs = Conn.Execute(strSQL)
til dette: Set rs = objConn.Execute(strSQL)

Okay men det virker ikke med denne kode

<%
set conn = server.createobject("ADODB.connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=db.guf4you.dk;DATABASE=ik;USER=kk;PASSWORD=kjkljkbljlk;OPTION=3;"
SQL = "SELECT * FROM ja_member ORDER BY Id DESC LIMIT 5"
set RS = conn.execute( SQL )
if RS.eof then
response.write "Der er ikke nogen Brugere endnu!"
else
do while not Rs.eof NewNyhed = NewNyhed + 1
Response.Write "<b>" & NewNyhed & ".</b>&nbsp;<a href=""/view_member.asp?id=" & RS("ID") & """>"
If Len(RS("navn")) >= 20 Then
  Response.Write Left(RS("navn"), 15) & ".."
Else
  Response.Write RS("navn")
End If
Response.Write "</a><br>" & vbCrLf
RS.movenext
loop
end if
RS.Close
Set RS = Nothing
Conn.Close
Set conn = nothing
%>

det skal du jo også bruge den rigtige connection, den du laver i config.asp

fjern:

set conn = server.createobject("ADODB.connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=db.guf4you.dk;DATABASE=ik;USER=kk;PASSWORD=kjkljkbljlk;OPTION=3;"

og brug objConn som du opretter i config.asp, så du skriver

set RS = objConn.execute( SQL )

bare husk at includer config.asp filen øverst

Okay nu mangler jeg kun disse 2 koder

<%
        ' åbner databasen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=db.guf4you.dk;DATABASE=web5;USER=we;PASSWORD=194552;OPTION=3;" 
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From ja_velkommen"
rs.open strSQL , conn, 1, 3

' udskifter felternes oplysninger
    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
    rs.update
    rs("velkommen") = Replace(Request.form("velkommen"),vbCrLf,"<br>")
    rs.update
    Response.Write("<br><center>Forsiden er nu blevet opdateret</FONT></center>")
    end if
%>

Og denne

<%
Response.Buffer = True

' tjekker om disse 5 felter er udfyldt !

brugernavn = Request("brugernavn")
password = Request("password")

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=db.guf4you.dk;DATABASE=web5;USER=we;PASSWORD=194552;OPTION=3;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From ja_admin WHERE brugernavn = '"&brugernavn&"'"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
      <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then       

' Skriver fejl, hvis der ikke er indtastet en oplysning.               
if brugernavn = "" then
                    Response.Write("Du skal vælge et Brugernavn<br></font>")
                end if
               
                                if password = "" then
                    Response.Write("Du skal vælge et Password!<br></font>")
                end if
               


' opretter brugeren i databasen !           
                   
If (Rs.BOF AND Rs.EOF) Then
                    if brugernavn <> "" AND password <> "" then
                    rs.AddNew
                    rs("brugernavn") = Request.form("brugernavn")
                      rs("kode") = Request.form("password")
                    rs.update
                    Response.Redirect("new_user.asp")
else
response.write "Brugernavnet er optaget, vælg et andet."
end if
                    end if
                    end if %>

og glemte lige denne

<%
if request ("mode") = "login" then
' Opretter forbindelse til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=db.guf4you.dk;DATABASE=we5;USER=web;PASSWORD=19kko1;OPTION=3;"
'ændre imput
Login = Trim(Replace(Request.Form("Login"),"'","''" ))
Password = Trim(Replace(Request.Form("Password"),"'","''" ))

'Lavet af Jimmy Jacobsen www.webshadow.frip.dk
'Opbygger Sql-sætningen
rsSQL = "SELECT * FROM ja_admin where brugernavn = '" & Login & "' and kode = '" & Password & "'"

' hvis brugeren var i databasen
set rs = Conn.execute(rsSQL)
Session("Timeout") = 90
If Not (rs.BOF Or rs.Eof) Then
Session("Timeout") = 90
Session("Id") = rs("Id")
Session("Timeout") = 90
session("login") = True
Response.redirect "../admin/admin.asp"

Else

'
' Hvis brugeren ikke var i databasen
Response.redirect "index.asp"


End If

' Lukker forbindelse til databasen
Conn.Close
Set Conn = Nothing

End if
%>

burde du ikke kunne se et mønster i det jeg gør, så du selv kan gøre det.

jeg sletter DB connectionen:

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=db.guf4you.dk;DATABASE=we5;USER=web;PASSWORD=19kko1;OPTION=3;"

og retter de steder den bruges. DVS retter Conn til objConn

Har jeg prøvet men det virker ikke

ADODB.Recordset error '800a0e79'

Operation is not allowed when the object is open.

/admin/edit_index.asp, line 79

Tror ikke Config.asp fejler noget

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=op; Database=io; UID=j; PWD=lkj;"
%>

<%
Sub CloseDataBase

  objConn.Close

  Set objConn = Notning
End Sub

%>

du skal kun includere config.asp en gang for hver side.

den er sat ind i toppen på alle siderne

hvad stå der i linie 79

Set rs = Server.CreateObject("ADODB.RecordSet")

ups

Der står
rs.open strSQL , conn, 1, 3

der har du jo også glemt at rette conn til objConn

rs.open objConn , conn, 1, 3

Mener du sådan

rs.open strSQL, objConn, 1, 3

Så sker dette

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.

/admin/edit_index.asp, line 84

Linje 84: rs("velkommen") = Replace(Request.form("velkommen"),vbCrLf,"<br>")

Prøv med:

If not isempty(Request.form("velkommen"))
  rs.Fields("velkommen").Value = Replace(Request.form("velkommen"),vbCrLf,"<br>")
  rs.Update
End If

Microsoft VBScript compilation  error '800a03f9'

Expected 'Then'

/admin/edit_index.asp, line 84

If not isempty(Request.form("velkommen"))
-----------------------------------------^

If not isempty(Request.form("velkommen")) Then

så det bliver:

If not isempty(Request.form("velkommen")) Then
  rs.Fields("velkommen").Value = Replace(Request.form("velkommen"),vbCrLf,"<br>")
  rs.Update
End If

Microsoft VBScript compilation  error '800a03f6'

Expected 'End'

/admin/edit_index.asp, line 133

hvad står der i linie 133, og linierne før

Dette er mærkelig nok linje 133 ' Luk forbindelsen til serveren igen

<%
' Åben en forbindelse til vores database
Set objRS = objConn.Execute("SELECT * FROM ja_copy")
If (Not objRS.BOF) And (Not objRS.EOF) Then ' Sikring mod fejl hvis ingen records blev fundet
  objRS.MoveFirst ' Flyt til første record i vores resultat
  While Not objRS.EOF ' Så længe vi ikke har nået sidste resultat, udfør
    Response.Write objRS("copy") & "<br>" & vbCrLf '
    objRS.MoveNext ' Flyt til næste record i resultatlisten
  Wend
Else ' Der var ingen resultater
  Response.Write "Der er inden data i databasen.<br>" & vbCrLf
End If
objRS.Close ' Luk for recordset
Set objRS = Nothing ' Frigør fra hukommelsen på serveren

' Luk forbindelsen til serveren igen
%>

fejlen betyder at du et sted i din kode har en if som du glemmer at lukke med end if

Hvor er den fejl? her er hele koden

<!-- #include file="../include/config.asp" -->
<!-- #include file="../include/beskyt.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0019)http://guf4you.dk/ -->
<HTML><HEAD><TITLE>Disterbed Testament</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<LINK
href="../design.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD>
<BODY style="background-color: #BCBB98">
<div align="center">
&nbsp;<TABLE class=border-around cellSpacing=0 cellPadding=0
border=0 id="table33" style="border-color: #000000" bordercolorlight="#000000" bordercolordark="#000000" width="80%">
  <TBODY>
  <TR>
    <TD class=menu-top vAlign=top width="100%" style="background-color:#9FA06D; border-top-color:#000000" bordercolorlight="#000000" bordercolordark="#000000">
        <p align="center" style="margin-top: 0; margin-bottom: 0">
        <!-- #include file="../include/logo.asp" --></TD></TR>
  <TR>
    <TD class=mellem vAlign=top width="100%" bordercolorlight="#000000" bordercolordark="#000000" style="border-top-color: #000000; border-bottom-color: #000000">
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 id="table34" bgcolor="#E7EEF8">
        <TBODY>
        <TR>
          <TD style="BACKGROUND-COLOR: #9FA06D" vAlign=top width="20%" bordercolorlight="#000000" bordercolordark="#000000">
            <p align="center" style="margin-top: 0; margin-bottom: 0">&nbsp;</p>
            <div align="center">
            <TABLE cellPadding=0 width="99%" border=1 id="table35" bgcolor="#FFFFFF" bordercolordark="#000000" bordercolorlight="#000000" style="border-collapse: collapse">
              <TBODY>
              <TR>
                <TD width="93%" bordercolorlight="#000000" bordercolordark="#000000" bgcolor="#A89F6F">
                  <DIV style="FONT-WEIGHT: bold" align=center>
                                    <p style="margin-top: 0; margin-bottom: 0">Menu</DIV></TD></TR>
              <TR>
                <TD class=menu style="BORDER-BOTTOM: 1px solid #000000; ; background-color:#9FA06D; border-left-color:#000000; border-right-color:#000000; border-top-color:#000000"
                vAlign=top bordercolorlight="#000000" bordercolordark="#000000">
                                    <!-- #include file="../include/menu.asp" --></TD></TR>
              <tr>
                <TD width="93%" bordercolorlight="#000000" bordercolordark="#000000" bgcolor="#A89F6F">
                  <DIV style="FONT-WEIGHT: bold" align=center>
                                    <p style="margin-top: 0; margin-bottom: 0">Admin</DIV></TD>
                </tr>
                <tr>
                <TD class=menu style="BORDER-BOTTOM: 1px solid #000000; ; background-color:#9FA06D; border-left-color:#000000; border-right-color:#000000; border-top-color:#000000"
                vAlign=top bordercolorlight="#000000" bordercolordark="#000000">
                                    <!-- #include file="../include/admin.asp" -->
</TD>
                </tr>
              </TBODY></TABLE>
            </div>
            <p style="margin-top: 0; margin-bottom: 0">&nbsp;</p>
            <p style="margin-top: 0; margin-bottom: 0">&nbsp;</p>
            <p style="margin-top: 0; margin-bottom: 0">&nbsp;</p>
            <p style="margin-top: 0; margin-bottom: 0">&nbsp;</TD>
          <TD class=content vAlign=top width="80%" bordercolorlight="#000000" bordercolordark="#000000" style="border-left-color: #000000; background-color:#9FA06D">
            <p style="margin-top: 0; margin-bottom: 0">&nbsp;</p>
            <div align="center">
            <TABLE cellPadding=0 width="99%" border=1 id="table36" bgcolor="#FFFFFF" bordercolordark="#000000" bordercolorlight="#000000" style="border-collapse: collapse">
              <TBODY>
              <tr>
    <TD class=copyright style="background-color:#A89F6F"
    vAlign=top bordercolorlight="#000000" bordercolordark="#000000">
      <p align="center" style="margin-top: 0; margin-bottom: 0"><b>Rediger</b></TD>
                </tr>
                <tr>
                <TD class=menu style="BORDER-BOTTOM: 1px solid #000000; ; background-color:#9FA06D; border-left-color:#000000; border-right-color:#000000; border-top-color:#000000"
                vAlign=top bordercolorlight="#000000" bordercolordark="#000000">
                                    <p align="center" style="margin-top: 0; margin-bottom: 0">
                                    <html>

<body>


</body></html>
<%
        ' åbner databasen

Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From ja_velkommen"
    rs.open strSQL, objConn, 1, 3
   
' udskifter felternes oplysninger
    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
    rs.update
If not isempty(Request.form("velkommen")) Then
  rs.Fields("velkommen").Value = Replace(Request.form("velkommen"),vbCrLf,"<br>")
  rs.Update
End If
%>
      </font>
                                      <p align="center" style="margin-top: 0; margin-bottom: 0">
                                    <b><a target="_blank" href="tags.asp">Tags</a></b><form method=POST action=edit_index.asp>
        <table width="99%" border="0" cellspacing="0" cellpadding="3">
          <tr>
            <td class="skrift" width="140" align="center">
            <p style="margin-top: 0; margin-bottom: 0">
            <b>
            <font face="Verdana" size="1">Rediger Forsiden</font></b></td>
            <td width="259" align="center">
            <p style="margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1">
<textarea rows="10" name="velkommen" cols="43"><%=replace(RS("velkommen"),"<br>",vbCrLF)%></textarea>            </font>
            </td>
          </tr>
          <tr>
            <td colspan="2" align="center">
            <p align="center" style="margin-top: 0; margin-bottom: 0"><font face="Verdana" size="1">
                <input type=submit value=opdater name="Submit" class="bottom">&nbsp;&nbsp;&nbsp; </font>
            <a href="edit_index.asp">Opdater listen</a></td>
          </tr>
        </table>
      </form></TD>
                </tr>
                </TBODY></TABLE>
            </div>
            </TD></TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD class=copyright style="background-color:#A89F6F"
    vAlign=top bordercolorlight="#000000" bordercolordark="#000000">
      <p align="center" style="margin-top: 0; margin-bottom: 0">&nbsp;<%
' Åben en forbindelse til vores database
Set objRS = objConn.Execute("SELECT * FROM ja_copy")
If (Not objRS.BOF) And (Not objRS.EOF) Then ' Sikring mod fejl hvis ingen records blev fundet
  objRS.MoveFirst ' Flyt til første record i vores resultat
  While Not objRS.EOF ' Så længe vi ikke har nået sidste resultat, udfør
    Response.Write objRS("copy") & "<br>" & vbCrLf '
    objRS.MoveNext ' Flyt til næste record i resultatlisten
  Wend
Else ' Der var ingen resultater
  Response.Write "Der er inden data i databasen.<br>" & vbCrLf
End If
objRS.Close ' Luk for recordset
Set objRS = Nothing ' Frigør fra hukommelsen på serveren

' Luk forbindelsen til serveren igen
%></TD></TR></TBODY></TABLE>

</div>

</BODY></HTML>

det var for engangsskyld rigtig som fejlen skrev.

Di skal sætte en enf if ind lige før linien 'Luk forbindelsen...

Microsoft VBScript compilation  error '800a03ea'

Syntax error

/admin/edit_index.asp, line 132

enf if
----^

det hedder end if

Nu sker dette http://testament.guf4you.dk/images/01.jpg

hvis der ikke kommer nogen fejl, så ser det ud til at du har fået flyttet dine conn strings til config.asp fejlfrit.

Hvad er det der skal rettes i Config.asp Og det er meningen at der skal værer en formular og den er væk

prøv at flytte end if på under dette her:

Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From ja_velkommen"
    rs.open strSQL, objConn, 1, 3
   
' udskifter felternes oplysninger
    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
    rs.update
If not isempty(Request.form("velkommen")) Then
  rs.Fields("velkommen").Value = Replace(Request.form("velkommen"),vbCrLf,"<br>")
  rs.Update
End If

så der står:

Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From ja_velkommen"
    rs.open strSQL, objConn, 1, 3
   
' udskifter felternes oplysninger
    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
    rs.update
If not isempty(Request.form("velkommen")) Then
  rs.Fields("velkommen").Value = Replace(Request.form("velkommen"),vbCrLf,"<br>")
  rs.Update
End If
End If

Nu er formularen der men nu sigder den dette når man klikker opdater

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

Query-based update failed because the row to update could not be found.

/admin/edit_index.asp, line 86

hvad står der i linie 66

Mener du ikke 86 der står  rs.Update

har det virket før, for jeg kan ikke helt se hvorfor der står rs.Update to gange inden for 3 linier?

Ja det virkede med den gamle connect

det er lidt underligt, for der er normalt ingen problemer i bare at flytte conn stringen over i en include fil. prøv evt at ryk tilbage ti ldet virkede sidst, og så ret til objConn igen og ikke andet

Alser skal jeg kun rette denne så den ser sådan ud rs.open strSQL, objConn, 1, 3
skal denne ikke rettes    Set rs = Server.CreateObject("ADODB.RecordSet")

Vis jeg ikke skriver noget og klikker opdater så kommer denne fejl

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

Query-based update failed because the row to update could not be found.

/admin/edit_index.asp, line 84

Og vis jeg skriver noget merer tekst og klikker opdater skriver den

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.

/admin/edit_index.asp, line 83

Linj 83:  rs("velkommen") = Replace(Request.form("velkommen"),vbCrLf,"<br>")
Linj 84:  rs.update

recordsettet har ikke noget med det at gøre.

i hele den kode du idder med skal du rette alle steder hvor der står objConn til Conn, og så skal du sætte alle de conn strings ind igen, som du slettede da du flyttede det over i config.asp

Alser nu må du rette mig vis dette er forkert

Edit_index.asp

<%
        ' åbner databasen
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From ja_velkommen"
rs.open strSQL, objConn, 1, 3

' udskifter felternes oplysninger
    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
    rs.update
    rs("velkommen") = Replace(Request.form("velkommen"),vbCrLf,"<br>")
    rs.update
    Response.Write("<br><center>Forsiden er nu blevet opdateret</FONT></center>")
    end if
%>

Og Config.asp

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=db.guf4you.dk; Database=brut; UID=db; PWD=;kode"
%>

<%
Sub CloseDataBase

  objConn.Close

  Set objConn = Notning
End Sub

%>

Formular koden er sådan her <%=replace(RS("velkommen"),"<br>",vbCrLF)%>

hvad mener du med at formularkoden er <%=replace(RS("velkommen"),"<br>",vbCrLF)%>

det er bare den der hiver infoen ud af dben så man kan rette det

yep, men det har intet med db connectionen at gøre

Men hvad skal jeg gører

gå tilbage til hvor du startede og ta det skridt for skridt med flytningen af conn stringen.

Har jeg gjort også skete dette*


Microsoft OLE DB Provider for ODBC Drivers error '80004005'

Query-based update failed because the row to update could not be found.

/admin/edit_index.asp, line 84

Og vis jeg skriver noget merer tekst og klikker opdater skriver den

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.

/admin/edit_index.asp, line 83

Linj 83:  rs("velkommen") = Replace(Request.form("velkommen"),vbCrLf,"<br>")
Linj 84:  rs.update

sagde du ikke at det virkede før du startede med at flytte din conn string

Jo jeg har først flyttet det over til den gamle connect igen så virkede det så prøvede jeg det med config.asp igen så virkede det ikke merer

så gå tilbage igen, og skift hver streng en af gangen

Skriv et svar moejensen

Lukker