Begynder spørgsmål (insert og update)?
Hej.Jeg roder med MS SQL server 2000 for første gang. Jeg har installeret serveren og alt ser ud til at virke.
Jeg "leger" med asp og forsøger at hente, indsætte og opdatere oplysninger i databasen.
Jeg har fået hentningen til at virke, men jeg kan ikke få insert eller update til at virke.
Til hentning har jeg lavet denne include-fil som virker fint:
<%
strPwd = ""
strUID = ""
strCatalog = ""
strDataSource = ""
strConnStr = "Provider=SQLOLEDB.1;Password="&strPwd&";Persist Security Info=False;User ID="&strUID&";Initial Catalog="&strCatalog&";Data Source=" & strDataSource
'------------------------------------------------------------------------>>
' Description: Returns recordset
'
' //
Function RecSetGet(strSQL)
Dim m_ObjConn, m_ObjRS
Set m_ObjConn = Server.CreateObject("ADODB.Connection")
Set m_ObjRS = Server.CreateObject("ADODB.RecordSet")
m_ObjConn.Open strConnStr
m_ObjRS.CursorLocation = 3 'adUseClient
m_ObjRS.LockType = 3 ' adLockBatchOptimistic
m_ObjRS.Open strSQL, m_ObjConn
Set RecSetGet = m_ObjRS
Set m_ObjRS.ActiveConnection = Nothing
m_ObjConn.Close
Set m_ObjConn = Nothing
End Function
'-----------------------------------------------------------------------------//
%>
Og så gjorde jeg bare dette i min fil:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Functions.Database.asp" -->
<html>
<head>
<title>Demo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
'Create object with recordset data
Set objRS = RecSetGet("SELECT FirstName,LastName FROM appUsers")
'Check wether there are records
If objRS.EOF = False Then
Do Until objRS.EOF
Response.Write objRS("FirstName") & " " & objRS("LastName")
objRS.MoveNext
Loop
Else
%>
There is no data.
<%
End If
%>
</body>
</html>
Er der ikke nogle der kan lave en lignende opsætning med include-fil til insert og update. Jeg kan simpelthen ikke få det til at virke...
På forhånd tak! :)
Kim
