Hejsan jag undrar hur gör man en sök sträng för söka vissa ord för se om dom finns i databasen så ska den utföra olika händelse.
t.ex
-Besökare- så ska den söka igenom hela pressentationen för att aktivera vem som besöker deras gästbok ljust nu. Men hur gör man det när man inte vet var i pressentationen dom skriver in det?

Vilken databas kör du?
Du kan använda "WHERE [presentationsfält] LIKE '%-Besökare-%'" i din SQL sats för att få ut vilka poster i databasen som har strängen "-Besökare-" i sin presentation.

För att leta i en sträng kan du använda InStr(Strängen, "-Besökare-") eller om du vill ersätta med ett värde kör du helt enkelt Strängen = Replace(Strängen, "-Besökare-", "Värdet att ersätta med")

Var det det du undrade över?

Mvh,
Thomas Vanhaniemi

jag att den ska söka efter ordet -besökare- när man skriver det i sin pressentation och så ska den aktivera en funktion som skriva in användarnamnet på pressentationen när man har det så den som besöker pressentationen ska få sitt eget namn där efter som den är där inne.
funderat på lite såna funktioner.
För att man ska lätt komma åt dom :-)
t.ex
<user>namnet</user>
så ska den skriva ut användarnamnet som en länk typ såna saker tänkte jag då.
För vill ha 2-3 st såna funktioner som dom kan använda. Specielt om det är första ver som släpps ut :-)
Då ska det vara mycket nytt så det håller ett bra tag.
Sen även fixa så om det finns " i vissa koder ska dom ta bort.
För har märkt att " ställer till det om du skriver t.ex
<h1 align="center"> så strullar det som fan</h1>
Därför om man kan ta bort alla " då istället dp funkar det det utan problem med spara pressentationen men inte annars.
så tänkte såna funktioner.

jag att den ska söka efter ordet -besökare- när man skriver det i sin pressentation och så ska den aktivera en funktion som skriva in användarnamnet på pressentationen när man har det så den som besöker pressentationen ska få sitt eget namn där efter som den är där inne.
funderat på lite såna funktioner.
För att man ska lätt komma åt dom :-)
t.ex
<user>namnet</user>
så ska den skriva ut användarnamnet som en länk typ såna saker tänkte jag då.
För vill ha 2-3 st såna funktioner som dom kan använda. Specielt om det är första ver som släpps ut :-)
Då ska det vara mycket nytt så det håller ett bra tag.
Sen även fixa så om det finns " i vissa koder ska dom ta bort.
För har märkt att " ställer till det om du skriver t.ex
<h1 align="center"> så strullar det som fan</h1>
Därför om man kan ta bort alla " då istället dp funkar det det utan problem med spara pressentationen men inte annars.
så tänkte såna funktioner.
Jag kör med Access databas.

Så om jag förstår dig rätt vill du att man ska kunna skriva som följer: "Hej -Besökare-!"

Om jag sen är in på presentationssidan ska det bli såhär: "Hej Thomas!" eller "Hej Thomas Vanhaniemi!"

För att göra ovanstående skriver du helt enkelt
<code>strText = Replace(strText, "-Besökare-", "Thomas")</code>

För att ovanstående ska fungera krävs att strText variabeln redan innehåller presentationstexten.
"Thomas" ersätter du med länken och namnet.
Användarens användarnamn och andra värden kan du spara i Sessioner, tex Session("Användare") innehåller användarens användarnamn.

Vill du hindra att användaren skriver in HTML som skrivs ut på sidan?
Då kan du använda
<code>Server.HTMLEncode("Text")</code>

Förstod inte riktigt varför tecknet " skapar problem för dig.
Jag kan förstå att tecknet ' skapar problem för de måste du ersätta med dubbla tecken, alltså ' ersätts med '' (inte cituationstecknet som det liknar).
Vissa htmltaggar kräver " runt värdet för att det ska fungera korrekt.
Innan du lägger till dina värden i din SQL sats skriver du
<code>strText = Replace(strText, "'", "''")</code>

Om du verkligen vill ta bort " skriver du
<code>strText = Replace(strText, """", "")</code>

Som vanligt när det gäller den här funktionen gäller det som står under det första exemplet här ovan.

Klarnar det?

Mvh,
Thomas Vanhaniemi

Hejsan det klarnar bätte.
Men kan man lagra det i en tabell som söker igenom det?
t.ex att ha -besökare- förvissa besökaren och kanske visiters för vissa antal besökare men det kan man inte skriva direkt i pressentationen utan iden är att det ska hämta informationen från databas både användarnamnet och visiters.
Eftrer som då hämtar den bara informationen direkt och sparar lite tid.

Det med " problemet är
skriver jag t.ex
<h1 align="center">Hejsan</h1>
Så blir det namn="Pm"
och namn="Pm" är en Request.Form("Pm")
hänger du med vad som strullar hos mig då?
Lika så när jag skriver javascript men när jag förhandsvissar det funakr det men när jag ska spara det så uppstår det problem.

Ingenting är omöjligt...
Självklart kan man ha en tabell som innehåller vilka nyckelord som ska ersättas och med vad, men då måste du veta vad du vill ersätta varje nyckel med. Det är tex svårt att ersätta en nykel "-Besökare-" med ett värde direkt från databasen, men självklart går det att bygga någon slags SQL sats som hämtar ut all information.

Menar du att du postar <h1 align="center">Hejsan</h1> på en sida och vill få ut det på en annan genom Request.Form("Pm")?
Cituationstecken borde inte vara något problem, har aldrig haft det.
Sparandet in i databasen kan saker gå fel på, men kanske av någon helt annan sak än det du tror.

Kan du inte posta lite relevant kod hit så kan jag läsa igenom och se om det finns något som kan orsaka felet?

Mvh,
Thomas Vanhaniemi

Hejsan det skulle vara vänligt om du har lust.


"koden nedan tillhör spara sidan"
<code>
<%

'Response.write "Följande text r nu:" &Request.Form("Pm")& "<br>"
'Response.write "Id nummer är:" & Request.Querystring("Pressid")

If Request.Querystring("Pressid") ="" Then
Response.redirect "http://a.domaindlx.com/plugget/index.htm"
Else
Set Con = Server.CreateObject ("Adodb.Connection") 'rad 9
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../Db/community.mdb") & ";"
Sql="Update Pressentation Set Press ='" & Request.Form("Pm") & "' where id =" & Request.Querystring("Pressid")
Con.execute(SQL)
response.write "Gå tillbaka till din pressentation?"
Response.write "din pressentation har nu uppdaterats!"
End if

%>
</code> Så ser spar sidan ut.

"Följande sida är den som förhands granskar sidan så användaren ser hur resultatet ser ut.

<code>
<%
If Request.Querystring("Pressid") = "" Then

response.Write "något blev fel Code 3 försök logga in igen!<br>"
Response.write "Eller kontakta Plugget administratören på Code3.plugget@javahuset.nu<br>"
Response.write "Så kontaktas du inomkort."

Else

Set Con = Server.CreateObject("Adodb.Connection") 'rad 10
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../Db/community.mdb") & ";"
Set Rst = con.execute("Select * From pressentation Where id =" & Request.Querystring("Pressid")& "")

If not Rst.eof Then

Response.write "Så här kommer din pressentation att se ut.<br>"
Response.write "&nbsp;" & Request.Form("PM") & "&nbsp;"
%>
<form Method="Post" Action="press_save.asp?pressid= <% = Request.Querystring("pressid") %>&Userid=<% = Request.Querystring("Userid") %>">
<input type="Hidden" Value="<% = Request.Form("Pm") %>" Name="Pm">
<input type="Submit" Value="Spara pressentation">
</form>
<%
Else

Response.write "Undantag har sket var vänlig och logga in igen!"
Response.write "Kvarstår problemet fortfarande kontakta plugget på mail adresse!"
Response.write "kallkod.plugget@javahuset.nu"
Response.write "Där du uppger vad problemet är och när felet uppstår och om du har försökt logga in på nytt men"
Response.write "det kvarstår ändå och var det uppstår i det här fallet vid uppdatering av pressentation."
Response.write "<big><strong><b>OBS!!!</b></strong> Felet ligger inte hos dig utan felet ligger på stället"
Response.write "Där hemsidan ligger på. Men det kan också vara hos dig men det är 1 på 10'000 att felet ligger hos dig oftsat!"
End if
End if
%>
</code>

"Uppdaterings filen har följande kod"

<code>

<%
Set Con = Server.CreateObject("Adodb.connection")
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../Db/community.mdb") & ";"
Sql =" Select * From Pressentation Where id =" & Request.QueryString("Pressid")
Set rst = Con.execute(Sql)
If not Rst.eof Then
%>
<form action="press_wiev.asp?Setup=True&Pressid=<% = Request.Querystring("Pressid")%>&Userid=<% = Request.QUerystring("Userid") %>" method="Post">
<TextArea Cols="75%" Rows="25%" Name="PM">
<%
Response.write Rst("Press")
%>
</TextArea><br>
<input align="center" type="Submit" Value="Spara pressentation">

</form>
<%
Else
Response.write "Något blev fel Code 3"
End if
%>

</code>

"Den som skriver ut pressentationen ser ut så här"

<code>
<%
Set Con = Server.CreateObject("Adodb.Connection")
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../Db/Community.mdb")
Set Rst = Con.execute("Select * from User Where Id='" & Request.QueryString("Userid") & "'")
If Session("Userid") = Request.QueryString("userid") Then
Set Rst1 = Con.execute("Select * From Pressentation Where Userid ='" & Rst("id") & "'")
If not Rst1.eof Then
Response.write Rst1("Press")
Response.write "Ändra pressentation"
Response.write "Gästbok"
Response.write "Plugget Mail"
else
Response.write "N&aring;got blev fel!"
end if
Else 'rad 15
Set Rst2 = Con.execute("Select * From Pressentation Where Userid='" & Rst("id") & "'")
If not rst2.eof then
Response.write Rst2("Press")
Response.write "Gästbok"
Response.write "Skicka mail?"
Else
Response.write "N&aring;got blev fel!"
End if
End if
Set Rst = Nothing 'rad 30
Set Rst1 = Nothing
Set Rst2 = Nothing
%>
</code>

Och det är i den som sparar i databasen den filen som är efter förhandsgrasning som strullar ibland och ibland även förhandsgransknings sidan.

Jag ska försöka...

Koden som tillhör spara sidan
<code>
<%
If Request.Querystring("Pressid") ="" Then
Response.redirect "http://a.domaindlx.com/plugget/index.htm"
Else
Set Con = Server.CreateObject ("Adodb.Connection")
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../Db/community.mdb") & ";"
Sql="Update Pressentation Set Press ='" & Replace(Request.Form("Pm"), "'", "''") & "' where id = " & Request.Querystring("Pressid")
Con.execute(SQL)
response.write "Gå tillbaka till din pressentation?"
Response.write "din pressentation har nu uppdaterats!"
End if

%>
</code>

Jag ändrade inte så mycket, såg bara till så det inte blir ett fel om användaren skriver in ett ' i sin text.

Förhandsgranskning
<code>
<%
If Request.Querystring("Pressid") = "" Then

response.Write "något blev fel Code 3 försök logga in igen!<br>"
Response.write "Eller kontakta Plugget administratören på Code3.plugget@javahuset.nu<br>"
Response.write "Så kontaktas du inomkort."

Else

Set Con = Server.CreateObject("Adodb.Connection") 'rad 10
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../Db/community.mdb") & ";"
Set Rst = con.execute("Select * From pressentation Where id = " & Request.Querystring("Pressid"))

If not Rst.eof Then

Response.write "Så här kommer din pressentation att se ut.<br>"
'Response.write "&nbsp;" & Rst("Press") & "&nbsp;"
'Response.write "&nbsp;" & Request.Form("Pm") & "&nbsp;"
%>
<form Method="Post" Action="press_save.asp?pressid= <% = Request.Querystring("pressid") %>&Userid=<% = Request.Querystring("Userid") %>">
<input type="Hidden" Value="<% = Rst("Press") %>" Name="Pm">
'<input type="Hidden" Value="<% = Request.Form("Pm") %>" Name="Pm">
<input type="Submit" Value="Spara pressentation">
</form>
<%
Else

Response.write "Undantag har sket var vänlig och logga in igen!"
Response.write "Kvarstår problemet fortfarande kontakta plugget på mail adresse!"
Response.write "kallkod.plugget@javahuset.nu"
Response.write "Där du uppger vad problemet är och när felet uppstår och om du har försökt logga in på nytt men"
Response.write "det kvarstår ändå och var det uppstår i det här fallet vid uppdatering av pressentation."
Response.write "<big><strong>OBS!!!</strong> Felet ligger inte hos dig utan felet ligger på stället"
Response.write "Där hemsidan ligger på. Men det kan också vara hos dig men det är 1 på 10'000 att felet ligger hos dig oftsat!"
End if
End if
%>
</code>
Här hittade jag något som jag anser vara fel.
Om du inte postar data till sidan kan du inte hämta ut data med Request.Form("Pm").
Du hämtar ju ut datan från databasen i denna fil.


Uppdateringsfil
<code>
<%
Set Con = Server.CreateObject("Adodb.connection")
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../Db/community.mdb") & ";"
Sql =" Select * From Pressentation Where id =" & Request.QueryString("Pressid")
Set rst = Con.execute(Sql)
If not Rst.eof Then
%>
<form action="press_wiev.asp?Setup=True&Pressid=<% = Request.Querystring("Pressid")%>&Userid=<% = Request.QUerystring("Userid") %>" method="Post">
<TextArea Cols="75%" Rows="25%" Name="PM">
<%
Response.write Rst("Press")
%>
</TextArea><br>
<input align="center" type="Submit" Value="Spara pressentation">

</form>
<%
Else
Response.write "Något blev fel Code 3"
End if
%>
</code>
Denna fil ser ut som att den ska fungera.


Presentationen
<code>
<%
Set Con = Server.CreateObject("Adodb.Connection")
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../Db/Community.mdb")

If Session("Userid") = Request.QueryString("userid") Then
Set Rst = Con.execute(("Select * From Pressentation Where Userid = " & Request.QueryString("Userid"))

If not Rst.eof Then
Response.write Rst("Press")
Response.write "Ändra pressentation"
Response.write "Gästbok"
Response.write "Plugget Mail"
else
Response.write "N&aring;got blev fel!"
end if
End if
Set Rst = Nothing 'rad 30
%>
</code>
Jag har försökt gå igenom koden i alla sidor och rensa bort onödiga saker och säkerställa att det ska fungera.
Men du måste prova och innan du ersätter koden i dina sidor kan du ju ta säkerhetskopior på filerna.

Skulle vara lättare om man skulle få veta vad de olika filerna heter och sen vad de innehåller för kod.
Har fått gissa ganska mycket nu.

Mvh,
Thomas Vanhaniemi

Jag ska försöka...

Koden som tillhör spara sidan
<code>
<%
If Request.Querystring("Pressid") ="" Then
Response.redirect "http://a.domaindlx.com/plugget/index.htm"
Else
Set Con = Server.CreateObject ("Adodb.Connection")
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../Db/community.mdb") & ";"
Sql="Update Pressentation Set Press ='" & Replace(Request.Form("Pm"), "'", "''") & "' where id = " & Request.Querystring("Pressid")
Con.execute(SQL)
response.write "Gå tillbaka till din pressentation?"
Response.write "din pressentation har nu uppdaterats!"
End if

%>
</code>

Jag ändrade inte så mycket, såg bara till så det inte blir ett fel om användaren skriver in ett ' i sin text.

Förhandsgranskning
<code>
<%
If Request.Querystring("Pressid") = "" Then

response.Write "något blev fel Code 3 försök logga in igen!<br>"
Response.write "Eller kontakta Plugget administratören på Code3.plugget@javahuset.nu<br>"
Response.write "Så kontaktas du inomkort."

Else

Set Con = Server.CreateObject("Adodb.Connection") 'rad 10
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../Db/community.mdb") & ";"
Set Rst = con.execute("Select * From pressentation Where id = " & Request.Querystring("Pressid"))

If not Rst.eof Then

Response.write "Så här kommer din pressentation att se ut.<br>"
'Response.write "&nbsp;" & Rst("Press") & "&nbsp;"
'Response.write "&nbsp;" & Request.Form("Pm") & "&nbsp;"
%>
<form Method="Post" Action="press_save.asp?pressid= <% = Request.Querystring("pressid") %>&Userid=<% = Request.Querystring("Userid") %>">
<input type="Hidden" Value="<% = Rst("Press") %>" Name="Pm">
'<input type="Hidden" Value="<% = Request.Form("Pm") %>" Name="Pm">
<input type="Submit" Value="Spara pressentation">
</form>
<%
Else

Response.write "Undantag har sket var vänlig och logga in igen!"
Response.write "Kvarstår problemet fortfarande kontakta plugget på mail adresse!"
Response.write "kallkod.plugget@javahuset.nu"
Response.write "Där du uppger vad problemet är och när felet uppstår och om du har försökt logga in på nytt men"
Response.write "det kvarstår ändå och var det uppstår i det här fallet vid uppdatering av pressentation."
Response.write "<big><strong>OBS!!!</strong> Felet ligger inte hos dig utan felet ligger på stället"
Response.write "Där hemsidan ligger på. Men det kan också vara hos dig men det är 1 på 10'000 att felet ligger hos dig oftsat!"
End if
End if
%>
</code>
Här hittade jag något som jag anser vara fel.
Om du inte postar data till sidan kan du inte hämta ut data med Request.Form("Pm").
Du hämtar ju ut datan från databasen i denna fil.


Uppdateringsfil
<code>
<%
Set Con = Server.CreateObject("Adodb.connection")
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../Db/community.mdb") & ";"
Sql =" Select * From Pressentation Where id =" & Request.QueryString("Pressid")
Set rst = Con.execute(Sql)
If not Rst.eof Then
%>
<form action="press_wiev.asp?Setup=True&Pressid=<% = Request.Querystring("Pressid")%>&Userid=<% = Request.QUerystring("Userid") %>" method="Post">
<TextArea Cols="75%" Rows="25%" Name="PM">
<%
Response.write Rst("Press")
%>
</TextArea><br>
<input align="center" type="Submit" Value="Spara pressentation">

</form>
<%
Else
Response.write "Något blev fel Code 3"
End if
%>
</code>
Denna fil ser ut som att den ska fungera.


Presentationen
<code>
<%
Set Con = Server.CreateObject("Adodb.Connection")
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../Db/Community.mdb")

If Session("Userid") = Request.QueryString("userid") Then
Set Rst = Con.execute(("Select * From Pressentation Where Userid = " & Request.QueryString("Userid"))

If not Rst.eof Then
Response.write Rst("Press")
Response.write "Ändra pressentation"
Response.write "Gästbok"
Response.write "Plugget Mail"
else
Response.write "N&aring;got blev fel!"
end if
End if
Set Rst = Nothing 'rad 30
%>
</code>
Jag har försökt gå igenom koden i alla sidor och rensa bort onödiga saker och säkerställa att det ska fungera.
Men du måste prova och innan du ersätter koden i dina sidor kan du ju ta säkerhetskopior på filerna.

Skulle vara lättare om man skulle få veta vad de olika filerna heter och sen vad de innehåller för kod.
Har fått gissa ganska mycket nu.

Mvh,
Thomas Vanhaniemi

Jag ska försöka...

Koden som tillhör spara sidan
<code>
<%
If Request.Querystring("Pressid") ="" Then
Response.redirect "http://a.domaindlx.com/plugget/index.htm"
Else
Set Con = Server.CreateObject ("Adodb.Connection")
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../Db/community.mdb") & ";"
Sql="Update Pressentation Set Press ='" & Replace(Request.Form("Pm"), "'", "''") & "' where id = " & Request.Querystring("Pressid")
Con.execute(SQL)
response.write "Gå tillbaka till din pressentation?"
Response.write "din pressentation har nu uppdaterats!"
End if

%>
</code>

Jag ändrade inte så mycket, såg bara till så det inte blir ett fel om användaren skriver in ett ' i sin text.

Förhandsgranskning
<code>
<%
If Request.Querystring("Pressid") = "" Then

response.Write "något blev fel Code 3 försök logga in igen!<br>"
Response.write "Eller kontakta Plugget administratören på Code3.plugget@javahuset.nu<br>"
Response.write "Så kontaktas du inomkort."

Else

Set Con = Server.CreateObject("Adodb.Connection") 'rad 10
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../Db/community.mdb") & ";"
Set Rst = con.execute("Select * From pressentation Where id = " & Request.Querystring("Pressid"))

If not Rst.eof Then

Response.write "Så här kommer din pressentation att se ut.<br>"
'Response.write "&nbsp;" & Rst("Press") & "&nbsp;"
'Response.write "&nbsp;" & Request.Form("Pm") & "&nbsp;"
%>
<form Method="Post" Action="press_save.asp?pressid= <% = Request.Querystring("pressid") %>&Userid=<% = Request.Querystring("Userid") %>">
<input type="Hidden" Value="<% = Rst("Press") %>" Name="Pm">
'<input type="Hidden" Value="<% = Request.Form("Pm") %>" Name="Pm">
<input type="Submit" Value="Spara pressentation">
</form>
<%
Else

Response.write "Undantag har sket var vänlig och logga in igen!"
Response.write "Kvarstår problemet fortfarande kontakta plugget på mail adresse!"
Response.write "kallkod.plugget@javahuset.nu"
Response.write "Där du uppger vad problemet är och när felet uppstår och om du har försökt logga in på nytt men"
Response.write "det kvarstår ändå och var det uppstår i det här fallet vid uppdatering av pressentation."
Response.write "<big><strong>OBS!!!</strong> Felet ligger inte hos dig utan felet ligger på stället"
Response.write "Där hemsidan ligger på. Men det kan också vara hos dig men det är 1 på 10'000 att felet ligger hos dig oftsat!"
End if
End if
%>
</code>
Här hittade jag något som jag anser vara fel.
Om du inte postar data till sidan kan du inte hämta ut data med Request.Form("Pm").
Du hämtar ju ut datan från databasen i denna fil.


Uppdateringsfil
<code>
<%
Set Con = Server.CreateObject("Adodb.connection")
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../Db/community.mdb") & ";"
Sql =" Select * From Pressentation Where id =" & Request.QueryString("Pressid")
Set rst = Con.execute(Sql)
If not Rst.eof Then
%>
<form action="press_wiev.asp?Setup=True&Pressid=<% = Request.Querystring("Pressid")%>&Userid=<% = Request.QUerystring("Userid") %>" method="Post">
<TextArea Cols="75%" Rows="25%" Name="PM">
<%
Response.write Rst("Press")
%>
</TextArea><br>
<input align="center" type="Submit" Value="Spara pressentation">

</form>
<%
Else
Response.write "Något blev fel Code 3"
End if
%>
</code>
Denna fil ser ut som att den ska fungera.


Presentationen
<code>
<%
Set Con = Server.CreateObject("Adodb.Connection")
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../Db/Community.mdb")

If Session("Userid") = Request.QueryString("userid") Then
Set Rst = Con.execute(("Select * From Pressentation Where Userid = " & Request.QueryString("Userid"))

If not Rst.eof Then
Response.write Rst("Press")
Response.write "Ändra pressentation"
Response.write "Gästbok"
Response.write "Plugget Mail"
else
Response.write "N&aring;got blev fel!"
end if
End if
Set Rst = Nothing 'rad 30
%>
</code>
Jag har försökt gå igenom koden i alla sidor och rensa bort onödiga saker och säkerställa att det ska fungera.
Men du måste prova och innan du ersätter koden i dina sidor kan du ju ta säkerhetskopior på filerna.

Skulle vara lättare om man skulle få veta vad de olika filerna heter och sen vad de innehåller för kod.
Har fått gissa ganska mycket nu.

Mvh,
Thomas Vanhaniemi

Jag ska försöka...

Koden som tillhör spara sidan
<code>
<%
If Request.Querystring("Pressid") ="" Then
Response.redirect "http://a.domaindlx.com/plugget/index.htm"
Else
Set Con = Server.CreateObject ("Adodb.Connection")
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../Db/community.mdb") & ";"
Sql="Update Pressentation Set Press ='" & Replace(Request.Form("Pm"), "'", "''") & "' where id = " & Request.Querystring("Pressid")
Con.execute(SQL)
response.write "Gå tillbaka till din pressentation?"
Response.write "din pressentation har nu uppdaterats!"
End if

%>
</code>
Jag ändrade inte så mycket, såg bara till så det inte blir ett fel om användaren skriver in ett ' i sin text.



Förhandsgranskning
<code>
<%
If Request.Querystring("Pressid") = "" Then

response.Write "något blev fel Code 3 försök logga in igen!<br>"
Response.write "Eller kontakta Plugget administratören på Code3.plugget@javahuset.nu<br>"
Response.write "Så kontaktas du inomkort."

Else

Set Con = Server.CreateObject("Adodb.Connection") 'rad 10
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../Db/community.mdb") & ";"
Set Rst = con.execute("Select * From pressentation Where id = " & Request.Querystring("Pressid"))

If not Rst.eof Then

Response.write "Så här kommer din pressentation att se ut.<br>"
'Response.write "&nbsp;" & Rst("Press") & "&nbsp;"
'Response.write "&nbsp;" & Request.Form("Pm") & "&nbsp;"
%>
<form Method="Post" Action="press_save.asp?pressid= <% = Request.Querystring("pressid") %>&Userid=<% = Request.Querystring("Userid") %>">
<input type="Hidden" Value="<% = Rst("Press") %>" Name="Pm">
'<input type="Hidden" Value="<% = Request.Form("Pm") %>" Name="Pm">
<input type="Submit" Value="Spara pressentation">
</form>
<%
Else

Response.write "Undantag har sket var vänlig och logga in igen!"
Response.write "Kvarstår problemet fortfarande kontakta plugget på mail adresse!"
Response.write "kallkod.plugget@javahuset.nu"
Response.write "Där du uppger vad problemet är och när felet uppstår och om du har försökt logga in på nytt men"
Response.write "det kvarstår ändå och var det uppstår i det här fallet vid uppdatering av pressentation."
Response.write "<big><strong>OBS!!!</strong> Felet ligger inte hos dig utan felet ligger på stället"
Response.write "Där hemsidan ligger på. Men det kan också vara hos dig men det är 1 på 10'000 att felet ligger hos dig oftsat!"
End if
End if
%>
</code>
Här hittade jag något som jag anser vara fel.
Om du inte postar data till sidan kan du inte hämta ut data med Request.Form("Pm").
Du hämtar ju ut datan från databasen i denna fil.





Uppdateringsfil
<code>
<%
Set Con = Server.CreateObject("Adodb.connection")
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../Db/community.mdb") & ";"
Sql =" Select * From Pressentation Where id =" & Request.QueryString("Pressid")
Set rst = Con.execute(Sql)
If not Rst.eof Then
%>
<form action="press_wiev.asp?Setup=True&Pressid=<% = Request.Querystring("Pressid")%>&Userid=<% = Request.QUerystring("Userid") %>" method="Post">
<TextArea Cols="75%" Rows="25%" Name="PM">
<%
Response.write Rst("Press")
%>
</TextArea><br>
<input align="center" type="Submit" Value="Spara pressentation">

</form>
<%
Else
Response.write "Något blev fel Code 3"
End if
%>
</code>
Denna fil ser ut som att den ska fungera.






Presentationen
<code>
<%
Set Con = Server.CreateObject("Adodb.Connection")
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../Db/Community.mdb")

If Session("Userid") = Request.QueryString("userid") Then
Set Rst = Con.execute(("Select * From Pressentation Where Userid = " & Request.QueryString("Userid"))

If not Rst.eof Then
Response.write Rst("Press")
Response.write "Ändra pressentation"
Response.write "Gästbok"
Response.write "Plugget Mail"
else
Response.write "N&aring;got blev fel!"
end if
End if
Set Rst = Nothing 'rad 30
%>
</code>
Jag har försökt gå igenom koden i alla sidor och rensa bort onödiga saker och säkerställa att det ska fungera.
Men du måste prova och innan du ersätter koden i dina sidor kan du ju ta säkerhetskopior på filerna.





Skulle vara lättare om man skulle få veta vad de olika filerna heter och sen vad de innehåller för kod.
Har fått gissa ganska mycket nu.

Mvh,
Thomas Vanhaniemi

Hejsan ska fortsätta i morgon sitter på en dator där jagi nte kommer åt filerna.