Hej mitt problem består av att jag har en knapp som ska skapa text i en databas eller så ska demn skicka information till en text editor som i sin tur ska skapa en html fil. Men jag får inte det här att funka så nu ber jag om hjälp. [ASP 3.0] Har problem med en knapp som ska göra två saker skriva till
Här kommer då lite kod som kanske vara till lite hjälp.
Den här kod snutten beskriver vad knappen gör idag
<form name="frmAddMessage" method="post" action='<%=Session("action")%>' onReset="return ResetForm();">
Den skickar ett värde med action taggen till en annan sida.
På den sidan som heter info.asp tar jag imot informationen av vad som har skickats med och sen så skriver jag ner det i data basen (spara den)
If Request.form("passwd") = sPassword Then
Session("owner") = sUser
Session("action") = "../info.asp?alt=save"
'' Get previous info
sDb = Server.MapPath("db/tdcm.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & sDb & ";"
Set oRS = Server.CreateObject("ADODB.Recordset")
sSQL = "SELECT * FROM info WHERE owner='" & sUser & "' ORDER BY id DESC"
oRS.Open sSQL, oConn, adOpenStatic, adLockOptimistic
Session("message") = oRS("info")
oRS.Close
oConn.Close
Set oConn = nothing
Set oRS = nothing
Response.Redirect("editor/default.asp")
Else
Session("owner") = sUser
Response.Redirect("info.asp")
End If
End If %>
<% '========================================================%>
<% ' Save message %>
<% '========================================================%>
<%
If Request.QueryString("alt") = "save" Then
If Session("owner") <> "" Then
sDb = Server.MapPath("db/tdcm.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & sDb & ";"
Set oRS = Server.CreateObject("ADODB.Recordset")
sSQL = "SELECT * FROM info"
oRS.Open sSQL, oConn, adOpenStatic, adLockOptimistic
oRS.AddNew
oRS("owner") = Session("owner")
oRS("info") = Request.Form("Message")
oRS.Update
oRS.Close
oConn.Close
Set oConn = nothing
Set oRS = nothing
End If
Response.Redirect "start.asp"
End If %>
Allt det här funkar hur bra som helst men nu ska jag göra så att samma knapp som tidigare ska gör två saker det som jag har beskrivt här ovan. Men sen så vill jag även att den ska kunna skriva till en HTML fil som jag vill redigera inte till en DATABAS . Editorn som jag använder heter Web Wiz Rich Text Editor som jag tycker funkar hur bra som helst så varför uppfinna hjulet två gånger :-).
Men jag vet inte hur jag ska kunna göra det.
Tacksam för alla förslag om det är något som ni undrar över eller tycker att jag ska komplitera med så är det bara att säga till.
MVH Andreas