All pastes #958469 Raw Edit

Stuff

public text v1 · immutable
#958469 ·published 2008-03-26 19:14 UTC
rendered paste body
	Set r9k = con.Execute("SELECT COUNT(*) FROM " & sql_table & " WHERE Kopipe LIKE '" & pbody & "'")
	r9kcheck = r9k.Fields.Item(0).Value

	If r9kcheck > 0 Then
		Response.Write("You comment was unoriginal.")
		Response.End
	End If