Jag har försökt hitta en artikel men hittar inte och får de inte att fungera riktigt. ja har sökt massor nu, men ja kommer inte längre än detta...Skicka text till databas via ajax
Jag kör vanlig klassisk asp.
Säg att ja har:
<code>
<textarea name="textarea" cols="50" rows="5"></textarea>
<input name="submit" type="button" value="Send" />
</code>
Jag har även databaskoppling o allt via skicka.asp
Hur skickar jag med detta via ajax???Sv: Skicka text till databas via ajax
Allt funkar, men den hittar inte vad som skrivs i min input...
Så ser mina filer ut:
Default:
<code>
<script type="text/javascript" src="js/send.js"></script>
</head>
<body>
<div id="resultat"></div><br />
<form action="javascript:void(0);" method="post">
<input name="namn" type="text" id="namn" />
<input name="submit" type="submit" onclick="makeRequesten()" value="Send" />
</form>
</code>
send.js:
<code>
function makeRequesten()
{
var http_request = getHttpRequest();
http_request.onreadystatechange = function() { handle_request(http_request); };
http_request.open('POST', 'send.asp', true);
http_request.send(null);
return false;
}
function handle_request(handle)
{
if (handle.readyState != 4) {
//Hit kommer du om anropet inte är komplett
return;
}
if (handle.status && handle.status != 200) {
//Något gick snett på server-sidan
alert('Ett fel uppstod');
return;
}
//Vi väljer att visa resultatet i en DIV som har ID = 'resultat'
document.getElementById('resultat').innerHTML = handle.responseText;
}
//Returnerar ett XMLHttpRequest objekt
function getHttpRequest()
{
var handle = false;
if (window.XMLHttpRequest) { // Firefox, Opera, Safari
handle = new XMLHttpRequest();
} else if (window.ActiveXObject) { // Internet Explorer
try {
handle = new ActiveXObject("Msxml2.XMLHTTP");
} catch (e) {
try {
handle = new ActiveXObject("Microsoft.XMLHTTP");
} catch (e) {}
}
}
if (!handle) {
alert('Ger upp! Kan inte skapa ett XMLHTTP-objekt');
return false;
}
return handle;
}
</code>
Send.asp:
<code>
<% TextArea = Request.Form("namn")
If TextArea = "" Then
Response.Write("You have to write something")
Else
Connect.Execute("Insert Into banner(namn) Values('" & TextArea & "')")
Response.Write "Ditt meddelande är skickat!"
End If
Connect.Close
Set Connect = Nothing %>
</code>
Allt fungerar som sagt perfekt, förrutom att TextArea inte hittas, den är hela tiden tom...
Tacksam för svar