---
title: "AddaText.."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13237-addatext"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "pleXnet"
published: "2001-12-17T20:45:00.000Z"
updated: "2001-12-17T20:55:00.000Z"
replies: 3
views: 171
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/13237-addatext"
---

# AddaText..

## #1 — pleXnet, 2001-12-17T20:45Z

**i default.asp ---\>**

```
<font face="verdana" size="1">
<b>Besökarnas text</b><br><br>
</font>

<%
Set RecSet = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("databas.mdb")

SQL = "SELECT * FROM tabell ORDER by id desc"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
%>

<table border="0" width="200"><tr><td><font face="verdana" size="1">
<i><% = RecSet("text") %></i><br><br>

<img src="skrivet.gif"> <a href="mailto:<% = RecSet("epost") %>"><% = RecSet("namn") %></a>

<%
RecSet.Close
Conn.Close
%>

</font>
</td></tr></table>

<p>

<font face="verdana" size="1">
<b>Skriv ett par rader!</b><br><br>

<form name="form1" method="post" action="add.asp?vad=add">
<table width="210" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="60"><font face="verdana" size="1">Namn:</font></td>
    <td width="100"><input name="namn" size="15"></td>
  </tr>
  <tr>
    <td width="60"><font face="verdana" size="1">Epost:</font></td>
    <td width="100"><input name="epost" size="15"></td>
  </tr>
  <tr>
    <td width="60"><font face="verdana" size="1">Text:</font></td>
    <td width="100"><input name="text" size="15" maxlength="75"></td>
  </tr>
  <tr>
    <td colspan="2"><br><input type="submit" value="Skicka"> <input type="reset" value="Rensa"></td>
  </tr>
</table>
</form>

</font>
```

**i add.asp ---\>**

```
<% Response.Buffer = True %>
<!-- #include file = "adovbs.inc" -->
<%
If NOT session("today") = "Sj47Yts45Wj" then
If request.querystring("vad") ="add" Then

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")

SQL = "Select * From tabell" 
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

RecSet.AddNew

RecSet("namn") = Request.Form("namn")
RecSet("epost") = Request.Form("epost")
RecSet("text") = Request.Form("text")

RecSet.Update
	
RecSet.Close
Conn.Close
Set RecSet = nothing
Set Conn = nothing
session("today") = "Sj47Yts45Wj"
Response.Redirect "default.asp"

END IF
ELSE
Response.Write "Tyvärr, du har redan lagt till en länk idag!"
END IF
%>
```

Permalänk: https://www.webforum.nu/p/13237

## #2 — icaaq, 2001-12-17T20:53Z

```
<% Response.Buffer = True %>
<!-- #include file = "adovbs.inc" -->
<%
If request.querystring("vad") ="add" Then

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")

SQL = "Select * From tabell" 
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

RecSet.AddNew

RecSet("namn") = Request.Form("namn")
RecSet("epost") = Request.Form("epost")
RecSet("text") = Request.Form("text")

RecSet.Update
	
RecSet.Close
Conn.Close
Set RecSet = nothing
Set Conn = nothing
session("today") = "Sj47Yts45Wj"
Response.Redirect "default.asp"

END IF

%>
```

Du kan ju testa så här......

Och vad plexNet undrade var om man kan ta bort så att man adda hur mycket text man ville.....

Permalänk: https://www.webforum.nu/p/301013

## #3 — LarsG, 2001-12-17T20:54Z

**Välkommen till wf** 

Vad är problemet?

Permalänk: https://www.webforum.nu/p/301014

## #4 — icaaq, 2001-12-17T20:55Z

**Just ja Välkommen till wF** :e

Permalänk: https://www.webforum.nu/p/301015

---

Tråden på webben: https://www.webforum.nu/amne/asp/13237-addatext