PROBLEM: Jag vill att det som skrivs in i txtrubrik ska skrivas till datbasen när man klickar på Skapa Är de du som har skrivit all denna kod efter egen kunskap? Isånnafall så är nog min fråga: Vart är problemet? Vad får du för fel?Läsa in värde från textruta och in till databas
Hur ska jag skriva???
TACK PÅ FÖRHAND
<%@ Language=VBScript %>
<HTML>
<HEAD>
<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
<LINK REL="stylesheet" Type="text/css" HREF="Styles.css">
<title>Skapa post</title>
</HEAD>
<body CLASS="menyrad">
<!-- # include file="meny.html"-->
<!--///////////Skapar formuläret som användaren får skriva in uppgifter i///////////////-->
<form method="get">
<br>
<h2>SKAPA NY POST</h2>
<h5>Rubrik(max 25 tecken)</h5>
<input type="text" name="txtrubrik" id="txtrubrik" maxlength="25" size="27">
<br>
<h5>Sammanfattning</h5>
<textarea id="txtsamm" name="txtsamm" rows="6" cols="50"></textarea>
<br>
<br>
<INPUT type="submit" value="Skapa" onclick="skapapost();">
</form>
<SCRIPT LANGUAGE="JavaScript">
/*////////////Funktion som meddelar användaren om att post är skapad////////////////////*/
function skapapost() {
if( confirm("Posten är skapad, vill du skapa en ny post?")){
document.bgcolor="teal";
}
}
</SCRIPT>
dim koppling
dim rs
dim sSQL
dim iSQL
dim sLIPID
On error resume next
'///////////////////Sökväg till databas//////////////////////////////////
filePath = Request.ServerVariables("APPL_PHYSICAL_PATH") & "DB\KOPIA B.mdb"
Set koppling = Server.CreateObject("ADODB.Connection")
'///////////////////Tömmer errors collection/////////////////////////////
koppling.Errors.clear
'//////////////Skapar uppkoppling mot databasen//////////////////////////
koppling.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
%>
</body>
</HTML>Sv: Läsa in värde från textruta och in till databas
Annars, om du har kopierat detta eller fått de av nån, så är detta hur jag skulle ha gjort sidan:
<br>
<code>
<%@ Language=VBScript %>
<HTML>
<HEAD>
<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
<LINK REL="stylesheet" Type="text/css" HREF="Styles.css">
<title>Skapa post</title>
</HEAD>
<body CLASS="menyrad">
<!-- # include file="meny.html"-->
<!--///////////Skapar formuläret som användaren får skriva in uppgifter i///////////////-->
<form method="get" action="dennasida.asp">
<br>
<h2>SKAPA NY POST</h2>
<h5>Rubrik(max 25 tecken)</h5>
<input type="text" name="txtrubrik" id="txtrubrik" maxlength="25" size="27">
<br>
<h5>Sammanfattning</h5>
<textarea id="txtsamm" name="txtsamm" rows="6" cols="50"></textarea>
<br>
<br>
<INPUT type="submit" value="Skapa">
</form>
<%
dim koppling
dim rs
dim sSQL
dim iSQL
dim sLIPID
On error resume next
IF Request.QueryString("txtSamm") <> "" AND Request.QueryString("txtRubrik") <> "" THEN
'///////////////////Sökväg till databas//////////////////////////////////
filePath = Request.ServerVariables("APPL_PHYSICAL_PATH") & "DB\KOPIA B.mdb"
Set koppling = Server.CreateObject("ADODB.Connection")
'///////////////////Tömmer errors collection/////////////////////////////
koppling.Errors.clear
'//////////////Skapar uppkoppling mot databasen//////////////////////////
koppling.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
koppling.execute("INSERT INTO Tabellen(Rubrik, Samm) VALUES ('" & Request.QueryString("txtRubrik") & "', '" & Request.QueryString("txtSamm") & "')")
Response.Write "Sparat!"
END IF
%>
</body>
</HTML>
</code>